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« APPLE /// ROM - DISK I/O ROUTINES 

* COPYRIGHT 1979 BY APPLE COMPUTER, INC. 

.ABSOLUTE 
•PROC DISKIO 
.ORG 0F000 

************************** 

CRITICAL TIMING * 

REQUIRES PAGE BOUND * 

CONSIDERATIONS FOR * 

CODE AND DATA * 

CODE * 

VIRTUALLY THE ENTIRE * 

'WRITE' ROUTINE * 

MUST NOT CROSS * 

PAGE BOUNDARIES * 

CRITICAL BRANCHES IN * 

THE 'WRITE' , 'READ', * 

AND 'READ ADR' SUBRS * 

WHICH MUST NOT CROSS * 

PAGE BOUNDARIES ARE * 

NOTED IN COMMENTS * 



*************j 



******** 



F000| 






EQUATES 




F000| 










* 


F000| 


0200 


NBUF1 


.EQU 




0200 


F000I 


0302 


NBUF2 


.EQU 




0302 


F000| 












F000| 


0080 


HRDERRS 


.EQU 




80 


F000| 


00E0 


DVMOT 


.EQU 




0E0 


F000| 










F000| 


0081 


IBSLOT 


.EQU 




81 


F000| 


0082 


IBDRVN 


.EQU 




IBSLOT+1 


F000| 


0083 


IBTRK 


.EQU 




IBSLOT+2 


F000| 


0084 


IBSECT 


.EQU 




IBSLOT+3 


F000| 


0085 


IBBUFP 


.EQU 




IBSLOT+4 


F000| 


0087 


IBCMD 


.EQU 




IBSLOT+6 


F000| 


0088 


IBSTAT 


.EQU 




IBSLOT+7 


F000| 


0089 


IBSMOD 


.EQU 




IBSLOT+8 


F000| 


0089 


CSUM 


.EQU 




IBSMOD 


F000| 


008A 


IOBPDN 


.EQU 




IBSLOT+9 


F000| 


008B 


I MASK 


.EQU 




IBSLOT+0A 


F000| 


008C 


CURTRK 


.EQU 




IBSLOT+0B 


F000| 


0085 


DRVOTRK 


.EQU 




CURTRK-7 


F000| 




; SLOT 4, 


DRIVE 


1 




F000| 




; SLOT 4, 


DRIVE 


2 




F000| 




; SLOT 5, 


DRIVE 


1 




F000| 




; SLOT 5, 


DRIVE 


2 




F000| 




; SLOT 6, 


DRIVE 


1 




F000| 




; SLOT 6, 


DRIVE 


2 




F000| 


0093 


RETRYCNT 


.EQU 




IBSLOT+1 2 


F000| 


0094 


SEEKCNT 


.EQU 




IBSLOT+13 


F000| 


009B 


BUF 


.EQU 




IBSLOT+1A 


F000| 


009F 


ENVTEMP 


.EQU 




IBSLOT+1E 



(ZERO PAGE AT $300) 



; & 5 



USED ALSO FOR ADDRESS HEADER CKSUM 



IBSL0T+$1F NOT USED 
************************** 

READADR * 

* 

************************** 



COUNT .EQU 

LAST .EQU 

CKSUM .EQU 

CSSTV .EQU 



IBSLOT+1 4 
IBSLOT+1 4 
IBSLOT+1 5 
IBSLOT+1 6 



•MUST FIND' COUNT. 
'ODD BIT' NIBLS. 
CHECKSUM BYTE. 
FOUR BYTES 



CHECKSUM, SECTOR, TRACK, AND VOLUME. 

************************** 
* 

WRITE * 

* 

USES ALL NBUFS * 
AND 32-BYTE * 
DATA TABLE 'NIBL' * 
* 

************************** 

************************** 
* 

READ * 

* 

USES ALL NBUFS * 
USES LAST 54 BYTES * 
OF A CODE PAGE FOR * 
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F000| 

F000| 

F000| 

F000| 

F000| 

F000| 

F000| 

F000| 

F002| 

F004 | 

F006| 

F008I 

F00A| 

F00B| 

F00C| 

F00D| 

F00E| 

F00F| 

F010| 

F012I 

F015| 

F017| 

F01A| 

F01B| 

F01D| 



0095 
009D 
009E 



0099 
00 9 A 



C080 
C081 
C08C 
C08D 
C08E 
C08F 
FFEF 
FFDF 
0080 
007F 



C088 
C089 
C08A 
C08B 
C081 
C080 
0097 
0097 
0098 
0099 
009 9 
00 9 A 
0083 
0082 
0081 
0080 



A0 01 
A6 81 

84 94 
A9 05 

85 8F 
08 

68 
6A 
6A 
6A 
6A 

85 8B 
AD DFFF 
85 9F 
20 2BF1 
08 

A5 85 
85 9B 



SIGNIFICANT BYTES * 
OF DNIBL TABLE. * 

************************** 

************************** 
* 

SEEK * 

* 

************************** 

TRKCNT .EQU COUNT 

PRIOR .EQU IBSLOT+1C 

TRKN .EQU IBSLOT+1D 

************************** 
* 

MS WAIT * 

* 

************************** 



HALFTRACKS MOVED COUNT. 



MONT I MEL 
MONT I ME H 



.EQU 
.EQU 



CSSTV+2 
MONT I MEL +1 



MOTOR-ON TIME 
COUNTERS. 



************************* 



DEVICE ADDRESS 
ASSIGNMENTS 



******* 



**************** 



PHASEOFF 


.EQU 


0C080 


PHASEON 


.EQU 


0C081 


Q6L 


.EQU 


0C08C 


Q6H 


.EQU 


0C08D 


Q7L 


.EQU 


0C08E 


Q7H 


.EQU 


0C08F 


INTERUPT 


.EQU 


0FFEF 


ENVIRON 


.EQU 


0FFDF 


ONEMEG 


.EQU 


80 


TWOMEG 


.EQU 


7F 



STEPPER PHASE OFF. 

STEPPER PHASE ON. 

Q7L, Q6L=READ 

Q7L, Q6H=SENSE WPROT 

Q7H, Q6L=WRITE 

Q7H r Q6H=WRITE STORE 



*****************************, 



EQUATES FOR RWTS AND BLOCK 



******************** 



MOTOROFF 


.EQU 


0C088 


MOTORON 


.EQU 


0C089 


DRVOEN 


.EQU 


0C08A 


DRV 1 EN 


.EQU 


0C08B 


PHASON 


.EQU 


0C081 


PHSOFF 


.EQU 


0C080 


TEMP 


.EQU 


CSSTV 


CSUM1 


.EQU 


TEMP 


SECT 


.EQU 


CSUM1+1 


TRACK 


.EQU 


SECT+1 


TRKN1 


.EQU 


TRACK 


VOLUME 


.EQU 


TRACK+1 


IBRERR 


.EQU 


HRDERRS+3 


IBDERR 


.EQU 


HRDERRS+2 


IBWPER 


.EQU 


HRDERRS+1 


IBNODRV 


.EQU 


HRDERRS 



PUT ADDRESS INFO HERE 



******* 



******************: 



READ WRITE A 
TRACK AND SECTOR 



****************************** 



REGRWTS 



LDY 


#01 


r 


RETRY COUNT 


LDX 


IBSLOT 




GET SLOT # FOR THIS OPERATION 


STY 


SEEKCNT 


r 


ONLY ONE RECALIBRATE PER CALL 


LDA 


#005 




STA 


08F 






PHP 






DETERMINE INTERRUPT STATUS 


PLA 








ROR 


A 






ROR 


A 




GET INTERRUPT FLAG INTO BIT 7 


ROR 


A 






ROR 


A 






STA 


I MASK 






LDA 


ENVIRON 




PRESERVE ENVIRONMENT 


STA 


ENVTEMP 






JSR 


CHKDRV 




SET ZERO FLAG IF MOTOR STOPPED 


PHP 






SAVE TEST RESULTS 


LDA 


IBBUFP 




MOVE OUT POINTER TO BUFFER INTO 


STA 


BUF 
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F01F 

F021 

F023 

F025 

F027 

F02 9 

F02B 

F02D 

F02E 

F02F 

F032 

F034 

F035 

F038 

F03B 

F03C 

F03E 

F03F 

F041 

F044 

F045 

F047 

F048 

F04A 

F04C 

F04F 

F04F 

F050 

F052 

F052 

F052 

F052 

F054 

F055 

F057 

F059 

F05B 

F05D 

F05F 

F05F 

F05F 

F05F 

F05F 

F05F 

F05F 

F05F 

F05F 

F062 

F064 

F066 

F069 

F069 

F069 

F06 9 

F06 9 

F06B 

F06D 

F06F 

F071 

F072 

F074 

F077 

F07 9 

F07C 

F07F 

F081 

F083 

F085 

F088 

F08A 

F08DI 

F08F| 

F091 

F093 

F095 

F097 

F09 9 

F09B 

F09C 

F09E 

F0A1 

F0A3 

F0A6 

F0A7 

F0AA 

F0AC 

F0AC 

F0AC 

F0AC 

F0AC 



A5 86 




LDA 


IBBUFP+1 




ft ^ ac 

CO ?{, 




STA 


BUF+1 




A9 E0 




LDA 


#DVMOT 




ft H Q7\ 




STA 


MONTIMEH 




AO oZ 




LDA 


IBDRVN 


; DETERMINE DRIVE ONE OR TWO 


C5 8A 




CMP 


IOBPDN 


; SAME DRIVE USED BEFORE 


85 8A 




STA 


IOBPDN 


; SAVE IT FOR NEXT TIME 


08 




PHP 




; KEEP RESULTS OF COMPARE 


6A 




ROR 


A 


; GET DRIVE NUMBER INTO CARRY 


BD 89C0 




LDA 


MOTORON,X 


; TURN ON THE DRIVE 


9001 




BCC 


DRIVSEL 


; BRANCH IF DRIVE 1 SELECTED 


E8 




I NX 




; SELECT DRIVE 2 


DU OAL0 


DRIVSEL 


LDA 


DRVOEN,X 




20 4CF3 




JSR 


SET1MEG 


; INSURE ONE MEGAHERTZ OPERATION 


2 8 




PLP 




; WAS IT SAME DRIVE? 


F00A 




BEQ 


OK 




28 




PLP 




; MUST INDICATE DRIVE OFF BY SETTING 


A0 07 




LDY 


#07 


; DELAY 150 MS BEFORE STEPPING 


20 56F4 


DRVWAIT 


JSR 


MSWAIT 


; (ON RETURN A=0) 


8 8 




DEY 




D0FA 




BNE 


DRVWAIT 




08 




PHP 




; NOW ZERO FLAG SET 


A5 83 


OK 


LDA 


IBTRK 


; GET DESTINATION TRACK 


A6 81 




LDX 


IBSLOT 


; RESTORE PROPER X (SLOT* 16) 


20 04F1 




JSR 


MY SEEK 


; AND GO TO IT 


28 


; NOW AT 


THE DESIRED TRACK 


WAS THE MOTOR ON TO START WITH? 




PLP 




; WAS MOTOR ON? 


D017 




BNE 


TRYTRK 


; IF SO, DON'T DELAY, GET IT TODAY! 




; MOTOR 


WAS OFF, 


WAIT FOR IT 


TO SPEED UP 


A0 12 


MOTOF 


LDY 


#12 


; WAIT EXACTLY 100 US FOR EACH COUNT 


88 


CONWAIT 


DEY 




; IN MONT I ME 


D0FD 




BNE 


CONWAIT 




E6 99 




INC 


MONT I MEL 


; COUNT UP TO 0000 


D0F7 




BNE 


MOTOF 




E6 9A 




INC 


MONTIMEH 




30F3 




BMI 


MOTOF 





20 2BF1 
D005 
A9 80 
4C EAF0 



A5 87 
F07 6 
C9 03 
B072 
6A 

B00B 
AD DFFF 
29 7F 
8D DFFF 
20 C4F2 
A0 7F 
84 93 
A6 81 
20 B9F1 
9022 
20 AAF1 
C6 93 
10F2 
C6 94 
D053 
A5 8F 
30EA 
A5 8C 
48 

A9 60 
20 25F1 
A9 00 
20 04F1 
68 

20 04F1 
90D7 



A4 99 



****************************** 
MOTOR SHOULD BE UP TO SPEED 
IF IT STILL LOOKS STOPPED THEN 
THE DRIVE IS NOT PRESENT. 



********: 



******************** 



JSR 
BNE 

NODRIVERR LDA 
JMP 



CHKDRV 
TRYTRK 
#IBNODRV 
HNDLERR 



IS DRIVE PRESENT? 

YES, CONTINUE 

NO, GET TELL EM NO DRIVE 



NOW CHECK IF IT IS NOT THE FORMAT DISK COMMAND, 
LOCATE THE CORRECT SECTOR FOR THIS OPERATION 



TRYTRK 




2-*? 



TRYTRK2 



TRYADR 



TRYADR2 



LDA 


IBCMD 


; GET COMMAND CODE # 


BEQ 


ALLDONE 


; IF NULL COMMAND, GO HOME TO BED 


CMP 


#03 


; COMMAND IN RANGE? 


BCS 


ALLDONE 


; NO, DO NOTHING! 


ROR 


A 


; SET CARRY =1 FOR READ, FOR WRITE 


BCS 


TRYTRK 2 


; MUST PRENIBBLIZE FOR WRITE 


LDA 


ENVIRON 




AND 


#TWOMEG 


; SHIFT TO HIGH SPEED! 


STA 


ENVIRON 




JSR 


PRENIB16 




LDY 


#7F 


; ONLY 127 RETRIES OF ANY KIND 


STY 


RETRYCNT 




LDX 


IBSLOT 


; GET SLOT NUM INTO X-REG 


JSR 


RDADR1 6 


; READ NEXT ADDRESS FIELD 


BCC 


RDRIGHT 


; IF READ IS RIGHT, HURRAH ! 


JSR 


CHKINT 


; BRANCH TO CHECK FOR INTERRUPTS 


DEC 


RETRYCNT 


; ANOTHER MISTAKE! ! 


BPL 


TRYADR 


; WELL, LET IT GO THIS TIME 


DEC 


SEEKCNT 


; ONLY RECALIBRATE ONCE! 


BNE 


DRVERR 


; TRIED TO RECALIBRATE A SECOND TIME, ERROR! 


LDA 


08F 


; ANOTHER MISTAKE!! 


BMI 


TRYADR 


; WELL, LET IT GO THIS TIME 


LDA 


CURTRK 




PHA 




; SAVE TRACK WE REALLY WANT 


LDA 


#60 


; RECALIBRATE ALL OVER AGAIN! ERROR! 


JSR 


SETTRK 


; PRETEND TO BE ON TRACK 80 


LDA 


#00 




JSR 


MY SEEK 


; MOVE TO TRACK 00 


PLA 






JSR 


MY SEEK 


; GO TO CORRECT TRACK THIS TIME! 


BCC 


TRYADR 


; LOOP BACK, TRY AGAIN ON THIS TRACK 



GOCAL1 
GOCAL 



HAVE NOW READ AN ADDRESS FIELD CORRECTLY. 

MAKE SURE THIS IS THE TRACK, SECTOR, AND VOLUME DESIRED. 



RDRIGHT 



LDY 



TRACK 



ON THE RIGHT TRACK? 
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F0AE| 


C4 8C 




CPY 


CURTRK 








F0B0| 


F00E 




BEQ 


RTTRK 




IF SO, GOOD 




F0B2 | 
















F0B2| 




; RECALIBRATING 


FROM THIS TRACK 








F0B2| 
















F0B2 | 


A5 8C 




LDA 


CURTRK 




PRESERVE DESTINATION TRACK 




F0B4| 


48 




PHA 










F0B5| 


98 




TYA 










F0B6| 


0A 




ASL 


A 








F0B7| 


20 25F1 




JSR 


SETTRK 








F0BA| 


68 




PLA 










F0BB| 


20 04F1 




JSR 


MYSEEK 








F0BE | 


90CA 




BCC 


TRYADR2 








F0C0| 


A5 9A RTTRK 


LDA 


VOLUME 




GET ACTUAL VOLUME HERE 




F0C2 | 


85 89 




STA 


IBSMOD 




TELL OP SYS WHAT VOLUME WAS THERE 




F0C4 | 


A5 98 CORRECTVOL 


LDA 


SECT 




CHECK IF THIS IS THE RIGHT SECTOR 




F0C6| 


C5 84 




CMP 


IBSECT 








F0C8| 


D0C0 




BNE 


TRYADR2 




NO, TRY ANOTHER SECTOR 




F0CA| 


A5 87 




LDA 


IBCMD 




READ OR WRITE? 




F0CC | 


4A 




LSR 


A 




THE CARRY WILL TELL 




F0CD| 


902A 




BCC 


WRIT 




CARRY WAS SET FOR READ OPERATION, 




F0CF| 


20 48F1 




JSR 


READ 16 




CLEARED FOR WRITE 




F0D2| 


B0B6 




BCS 


TRYADR2 




CARRY SET UPON RETURN IF BAD READ 




F0D4| 


AD DFFF 




LDA 


ENVIRON 








F0D7| 


2 9 7F 




AND 


#TWOMEG 








F0D9| 


8D DFFF 




STA 


ENVIRON 


SET TWO MEGAHERTZ 




F0DC| 


20 0FF3 




JSR 


POSTNIB1 6 




DO PARTIAL POSTNIBBLE CONVERSION 




F0DF| 


A6 81 




LDX 


IB SLOT 




RESTORE SLOTNUM INTO X 




F0E1I 


B0A7 




BCS 


TRYADR2 




CHECKSUM ERROR 




F0E3I 


1 8 ALLDONE 


CLC 










F0E4 | 


A9 00 




LDA 


#00 




NO ERROR 




F0E6| 


9003 




BCC 


ALDONE1 




SKIP OVER NEXT BYTE WITH BIT OPCODE 




F0E8 | 


A 9 82 DRVERR 


LDA 


#IBDERR 




BAD DRIVE 




F0EA| 


38 HNDLERR 


SEC 






INDICATE AN ERROR 




F0EB| 


85 88 ALDONE1 


STA 


IB STAT 




GIVE HIM ERROR 




F0ED| 


BD 88C0 




LDA 


MOTOROFF,X 




TURN IT OFF 




F0F0| 


20 AAF1 




JSR 


CHKINT 




BRANCH TO CHECK FOR INTERRUPTS 




F0F3 | 


A5 9F 




LDA 


ENVTEMP 




RESTORE ORIGINAL ENVIRONMENT 




F0F5 | 


8D DFFF 




STA 


ENVIRON 








F0F8| 


60 




RTS 










F0F9| 
















F0F9 | 


20 16F2 WRIT 


JSR 


WRITE16 




WRITE NYBBLES NOW 




F0FC| 


90E5 




BCC 


ALLDONE 




IF NO ERRORS 




F0FE | 


A9 81 




LDA 


#IBWPER 




DISK IS WRITE PROTECTED!! 




F100| 


50E8 




BVC 


HNDLERR 




TAKEN IF TRUELY WRITE PROTECT ERROR 




F102 | 
F104 | 


D086 




BNE 


TRYADR2 




OTHERWISE ASSUME AN INTERRUPT MESSED THINGS UP 


F104 | 




? THIS IS THE 'SEEK' ROUTINE 








F104 | 




; SEEKS TRACK ' 


N' IN SLOT #X/$10 






F104 | 




IF DRIVENO IS 


NEGATIVE, ON DRIVE 




F104 | 




; IF DRIVENO IS 


POSITIVE. ON DRIVE 1 




F104 | 
















F104 | 


0A MYSEEK 


ASL 


A 


ASSUME TWO PHASE STEPPER. 




F105I 


85 99 SEEK1 


STA 


TRKN1 


SAVE DESTINATION TRACK (*2) 




F107 | 


20 18F1 




JSR 


ALLOFF 


TURN ALL PHASES OFF TO BE SURE. 




F10A| 


20 3EF1 




JSR 


DRVINDX 


GET INDEX TO PREVIOUS TRACK FOR CURRENT 


DRIVE 


F10DI 


B5 85 




LDA 


DRVOTRK, X 






F10F| 


85 8C 




STA 


CURTRK 


THIS IS WHERE I AM 




Fill | 


A5 99 




LDA 


TRKN1 


AND WHERE I'M GOING TO 




F113 | 


95 85 




STA 


DRVOTRK, X 








F115| 


20 00F4 GOSEEK 


JSR 


SEEK 


GO THERE! 




F118I 


A0 03 ALLOFF 


LDY 


#03 


TURN OFF ALL PHASES BEFORE RETURNING 




F11A| 


98 NXOFF 


TYA 




(SEND PHASE IN ACC. ) 




F11B| 


20 4AF4 




JSR 


CLRPHASE ; 


CARRY IS CLEAR, PHASES SHOULD BE TURNED 


OFF 


F11E| 


88 




DEY 








F11FI 


10F9 




BPL 


NXOFF 








F121I 


4 6 8C 




LSR 


CURTRK 


DIVIDE BACK NOW 




F123| 


18 




CLC 








F124I 


60 




RTS 










F125I 
















F125 | 




• THIS SUBROUTINE SETS THE SLOT DEPENDENT TRACK 




F125| 




■ LOCATION 












F125| 
















F125| 


20 3EF1 SETTRK 


JSR 


DRVINDX 




GET INDEX TO DRIVE NUMBER 




F128| 


95 85 




STA 


DRVOTRK, X 








F12A| 


60 




RTS 










F12B| 
















F12B| 




***************************** 








F12B| 
















F12B| 




SUBR TO TELL IF MOTOR IS STOPPED 




F12B| 
















F12B| 




IF MOTOR 


IS STOPPED, CONTROLLER 


S 




F12BI 




• SHIFT REG WILL 


NOT BE CHANGING. 






F12B| 
















F12B| 




RETURN Y= 


=0 AND 


ZERO FLAG SET IF 


IT IS STOPPED. 




F12B| 
















F12B| 




***************************** 








F12B| 
















F12B| 


A0 00 CHKDRV 


LDY 


#00 


I NIT LOOP COUNTER 




F12D| 


BD 8CC0 CHKDRV1 


LDA 


Q6L, X 


READ THE SHIFT REG 


J 
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F130 

F133 

F134 

F135 

F138 

F13A 

F13B 

F13D 

F13E 

F13E 

F13F 

F140 

F141 

F142 

F143 

F145 

F146 

F147 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148 

F148: 

F148S 

F148I 

F148; 

F148! 

F148! 

F148! 

F148I 

F148I 

F148I 

F148I 

F148 

F148 

F148 

F14A 

F14B 

F14D 

F150 

F152 

F154 

F156 

F157 

F15A 

F15C 

F15E 

F160 

F162 

F162 

F163 

F166 

F168 

F16A 

F16C 



20 3DF1 

48 

68 

DD 8CC0 

D003 

88 

D0F0 
60 

48 
8A 
4A 
4A 
4A 

05 82 
AA 
68 
60 



A0 20 
88 

F06A 
BD 8CC0 
10FB 
4 9 D5 
D0F4 
EA 

BD 8CC0 
10FB 
C9 AA 
D0F2 
A0 55 

EA 

BD 8CC0 
10FB 
C9 AD 
D0E6 



JSR CKDRTS 

PHA 

PLA 

CMP Q6L,X 
BNE CKDRTS 
DEY 

BNE CHKDRV1 
CKDRTS RTS 

DRVINDX PHA 
TXA 

LSR A 

LSR A 

LSR A 

ORA IBDRVN 

TAX 

PLA 

RTS 

***************************** 

NOTE: FORMATTING ROUTINES 

NOTE INCLUDED FOR SOS 



DELAY 



HAS SHIFT REG CHANGED? 
YES, MOTOR IS MOVING 
NO, DEC RETRY COUNTER 
AND TRY 256 TIMES 
THEN RETURN 

PRESERVE ACC. 
GET SLOT (* $10)/ 8 



FOR DRIVE OR 1 

INTO X FOR INDEX TO TABLE 

RESTORE ACC. 



******** 



******************* 



************************* 



READ SUBROUTINE 
(16-SECTOR FORMAT) 



************** 



******* 



READS ENCODED BYTES * 
INTO NBUF1 AND NBUF2 * 
* 

FIRST READS NBUF2 * 
HIGH TO LOW, * 

THEN READS NBUF1 * 
LOW TO HIGH. * 
★ 

ON ENTRY * 

X-REG: SLOTNUM * 
TIMES $10. * 
* 

READ MODE (Q6L, Q7L * 
* 

ON EXIT * 

* 

CARRY SET IF ERROR * 
* 

IF NO ERROR: * 
A-REG HOLDS $AA. * 
X-REG UNCHANGED. * 
Y-REG HOLDS $00. * 
CARRY CLEAR. * 

CAUTION * 

* 

OBSERVE * 
'NO PAGE CROSS' * 
WARNINGS ON * 
SOME BRANCHES! ! * 
* 

ASSUMES * 

* 

1 USEC CYCLE TIME * 
* 

*********************** 
#20 



READ1 6 
RSYNC 



RD1 

RSYNC1 
RD2 



RD3 



LDY 
DEY 
BEQ 
LDA 
BPL 
EOR 
BNE 
NOP 
LDA 
BPL 
CMP 
BNE 
LDY 

NOP 
LDA 
BPL 
CMP 
BNE 



RDERR 
Q6L,X 
RD1 
#0D5 
RSYNC 

Q6L,X 
RD2 
#0AA 
RSYNC1 
#055 

( ADDED NIBL 

Q6L,X 
RD3 
#0AD 
RSYNC1 



•MUST FIND' COUNT. 
IF CAN'T FIND MARKS. 
THEN EXIT WITH CARRY SET 
READ NIBL. 

*** NO PAGE CROSS! *** 

DATA MARK1? 

LOOP IF NOT. 

DELAY BETWEEN NIBLS. 

*** NO PAGE CROSS! *** 

DATA MARK 2? 

(IF NOT, IS IT DM1?) 

INIT NBUF2 INDEX. 

DELAY) 

DELAY BETWEEN NIBLS. 

*** NO PAGE CROSS! *** 

DATA MARK 3? 

(IF NOT, IS IT DM1?) 



(CARRY SET IF DM3!) 
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F16C| 


EA 


F16DI 


EA 


F16E| 




F171 1 


10FB 


F173 | 


99 0203 


F176 | 


AD EFFF 


F179 | 


05 8B 


F17B | 


1037 


F17D | 


88 


F17E | 


10EE 


F180 1 


C8 


F181 1 




F184 | 


10FB 


F186 | 


9 9 0002 


F189 | 


AD EFFF 


F18C| 


05 8B 


F18E | 


1024 


F190| 


C0 E4 


F192 | 


D0EC 


F194 | 


C8 


F195 | 




F198 | 


10FB 


F19A| 


99 0002 


F19D| 


C8 


F19E | 


D0F5 


F1A0| 


BD 8CC0 


F1A3 1 


10FB 


F1A5 | 


85 96 


F1A7 | 


20 01F2 


F1AA| 




F1AA| 




F1AA| 




F1AA| 


24 8B 


F1AC | 


1004 


F1AE | 


24 8F 


F1B0| 


1001 


F1B2 | 


58 


F1B3 | 


60 


F1B4 | 




F1B4 | 


20 AAF2 


F1B7 | 


38 


F1B8 | 


60 


F1B9 | 




F1B9 | 




F1B9 | 




F1B9| 




F1B9 | 




F1B9 | 




F1B9 | 




F1B9 | 




F1B9| 




F1B9 | 




F1B9| 




F1B9| 




F1B9| 




F1B9| 




F1B9| 




F1B9| 




F1B9| 




F1B9 | 




F1B9| 




F1B9| 




F1B9| 




F1B9 | 




F1B9 | 




F1B9| 




F1B9 | 




F1B9 | 




F1B9 | 




F1B9 | 




F1B9 | 




F1B9 | 




F1B9 | 




F1B9| 




F1B9 | 




F1B9| 




F1B9I 




F1B9I 




F1B9| 




F1B9| 




F1B9I 




F1B9| 




F1B9| 




F1B9| 




F1B9| 




F1B9| 




F1B9| 




F1B9I 




F1B9| 




F1B9I 
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RD4 



RD5 
RD5A 



RD6 



RDCKSUM 



CHKINT 



$010 
$020 



GOSERV 
RDERR 



********* 



NOP 




NOP 




LDA 


Q6L,X 


BPL 


RD4 


STA 


NBUF2, Y 


LDA 


INTERUPT 


ORA 


I MASK 


BPL 


GOSERV 


DEY 




BPL 


RD4 


INY 




LDA 


Q6L,X 


BPL 


RD5A 


STA 


NBUF1, Y 


LDA 


INTERUPT 


ORA 


IMASK 


BPL 


GOSERV 


CPY 


#0E4 


BNE 


RD5 


INY 




LDA 


Q6L,X 


BPL 


RD6 


STA 


NBUF1, Y 


INY 




BNE 


RD6 


LDA 


Q6L,X 


BPL 


RDCKSUM 


STA 


CKSUM 


JSR 


RDA6 


OR INTERRUPTS 


BIT 


IMASK 


BPL 


$010 


BIT 


08F 


BPL 


$020 


CLI 




RTS 




JSR 


SERVICE 


SEC 




RTS 





*************. 



READ ADDRESS FIELD * 
SUBROUTINE * 
(16-SECTOR FORMAT) * 
* 

r************************** 
* 

READS VOLUME, TRACK * 
AND SECTOR * 
* 

ON ENTRY * 

* 

XREG: SLOTNUM TIMES $10 * 
* 

READ MODE (Q6L, Q7L) * 
* 

ON EXIT * 

* 

CARRY SET IF ERROR * 
* 

IF NO ERROR: * 
A-REG HOLDS $AA. * 
Y-REG HOLDS $00. * 
X-REG UNCHANGED. * 
CARRY CLEAR. * 
* 

CSSTV HOLDS CHKSUM, * 
SECTOR, TRACK, AND * 
VOLUME READ. * 
* 

USES TEMPS COUNT, * 
LAST, CSUM, AND * 
4 BYTES AT CSSTV. * 
* 

EXPECTS * 

* 

ORIGINAL 10-SECTOR * 
NORMAL DENSITY NIBLS * 
(4-BIT) , ODD BITS, * 
THEN EVEN * 



; DELAY BETWEEN NIBLS. 

; DELAY BETWEEN NIBLS. 

. *** N0 PAGE CROSS! *** 

; STORE BYTES DIRECTLY 

; POLL INTERRUPT LINE 

; (THIS MAY BE USED TO INVALIDATE POLL) 

; INDEX TO NEXT 

; (FIRST TIME Y=0) 

; GET ENCODED BYTES OF NBUF1 



POLL INTERRUPT LINE 

(THIS MAY BE USED TO INVALIDATE POLL) 



WITHIN 1 MS OF COMPLETION? 

NO POLL FROM NOW ON 

FINISH OUT NBUF1 PAGE 
GET CHECKSUM BYTE. 

CHECK BIT SLIP MARKS 



; SHOULD INTERRUPTS BE ALLOWED? 
; YES, ALLOW THEM. 



GO TO SERVICE INTERRUPT 



CAUTION 



OBSERVE 
'NO PAGE CROSS' 
WARNINGS ON 
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F1B9| 




F1B9I 




F1B9| 




F1B9| 




F1B9 | 




F1B9 | 




F1B9 | 




F1B9 | 




F1B9 | 


A0 FC 


F1BB | 


84 95 


F1BD| 


C8 


F1BE | 


D004 


F1C0| 


E6 95 


F1C2 | 


F0F3 


F1C4 | 


BD 8CC0 


F1C7 | 


10FB 


F1C9 | 


C9 D5 


F1CB| 


D0F0 


F1CD | 


EA 


F1CE| 


BD 8CC0 


F1D1 1 


10FB 


F1D3| 


C9 AA 


F1D5| 


D0F2 


F1D7 | 


A0 03 


F1D9 | 




F1D9 | 


BD 8CC0 


F1DCI 


10FB 


FIDE | 


C9 96 


F1E0I 


D0E7 


F1E2 | 




F1E2 | 


78 


F1E3| 


A9 00 


F1E5 | 


85 89 


F1E7 | 


BD 8CC0 


F1EA| 


10FB 


F1EC| 


2A 


F1ED | 


85 95 


FIEF | 


BD 8CC0 


F1F2 | 


10FB 


F1F4 | 


25 95 


F1F6| 


9 9 97 00 


F1F9 | 


45 89 


F1FB | 


88 


F1FCI 


10E7 


FIFE | 


A8 


F1FFI 


D0B6 


F201 1 


BD 8CC0 


F204 | 


10FB 


F206| 


C9 DE 


F208| 


D0AD 


F20A| 


EA 


F20B| 


BD 8CC0 


F20EI 


10FB 


F210| 


C9 AA 


F212 | 


D0A3 


F214 | 


18 


F215| 


60 


F216 | 




F216 | 




F216| 




F216 | 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216| 




F216I 




F216| 




F216I 




F216I 




F216| 




F216| 




F216I 




F216I 




F216I 




F216| 




F216I 




F216| 




F216I 
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SOME BRANCHES ! ! * 

ASSUMES * 

* 

1 USEC CYCLE TIME * 
*************************** 



RDADR1 6 
RDASYN 

RDA1 
RDASN1 

RDA2 



RDA3 



RDAFLD 
RDA4 



RDA5 



LDY 
STY 
INY 
BNE 
INC 
BEQ 
LDA 
BPL 
CMP 
BNE 
NOP 
LDA 
BPL 
CMP 
BNE 
LDY 

LDA 
BPL 
CMP 
BNE 



(LEAVES CARRY 
SEI 



#0FC 
COUNT 

RDA1 

COUNT 

RDERR 

Q6L,X 

RDA1 

#0D5 

RDASYN 

Q6L,X 

RDA2 

#0AA 

RDASN1 

#03 

(ADDED NIBL 
Q6L, X 
RDA3 
#96 

RDASN1 

SET! ) 



RDA6 



RDA7 



RDEXIT 
WEXIT 



LDA 
STA 
LDA 
BPL 
ROL 
STA 
LDA 
BPL 
AND 
STA 
EOR 
DEY 
BPL 
TAY 
BNE 
LDA 
BPL 
CMP 
BNE 
NOP 
LDA 
BPL 
CMP 
BNE 
CLC 
RTS 



#00 

CSUM 

Q6L,X 

RDA4 

A 

LAST 

Q6L,X 

RDA5 

LAST 

CSSTV, Y 

CSUM 

RDAFLD 

RDERR 
Q6L, X 
RDA6 
#0DE 
RDERR 

Q6L, X 
RDA7 
#0AA 
RDERR 



:***************, 



WRITE SUBR 
(16- SECTOR FORMAT) 



********** *i 



*******: 



WRITES DATA FROM * 
NBUF1 AND NBUF2 * 
* 

FIRST NBUF2, * 
HIGH TO LOW. * 

THEN NBUF1, * 
LOW TO HIGH * 
* 

ON ENTRY * 

* 

X-REG SLOTNUM * 
TIMES $10 * 



ON EXIT 

CARRY SET IF ERROR. 
(W PROT VIOLATION) 

IF NO ERROR: 

A-REG UNCERTAIN. 
X-REG UNCHANGED. 
Y-REG HOLDS $00. 
CARRY CLEAR. 



'MUST FIND' COUNT. 

LOW ORDER OF COUNT 
(2K NIBLS TO FIND 
ADR MARK, ELSE ERR) 
READ NIBL. 

*** NO PAGE CROSS! *** 
ADR MARK 1? 
(LOOP IF NOT) 
ADDED NIBL DELAY 



*** NO PAGE CROSS! *** 
ADR MARK 2? 
(IF NOT, IS IT AMI?) 
INDEX FOR 4 -BYTE READ 
DELAY) 

*** NO PAGE CROSS! *** 
ADR MARK 3? 
(IF NOT IS IT AMI?) 

DISABLE INTERRUPT SYSTEM 
I NIT CHECKSUM 

READ 'ODD BIT' NIBBL 
*** NO PAGE CROSS! *** 
ALIGN ODD BITS, 1' INTO LSB 
(SAVE THEM) 
READ 'EVEN BIT' NIBL 
*** NO PAGE CROSS *** 
MERGE ODD AND EVEN BITS 
STORE DATA BYTE 



LOOP ON 4 DATA BYTES. 
IF FINAL CHECKSUM 
NONZERO, THEN ERROR 
FIRST BIT SLIP NIBBL 
*** NO PAGE CROSS! ** 

ERROR IF NONMATCH 
DELAY 

SECOND BIT-SLIP NIBL 
*** NO PAGE CROSS! ** 

ERROR IF NOMATCH 
CLEAR CARRY ON 
NORMAL READ EXITS. 



l Source: David T. Craig 
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Parr a S 
r age O 


F216| 










* 










F216| 






• ASSUMES 












F216I 










* 










F216| 






• 1 USEC 


CYCLE 


TIME * 










F216| 










* 










F216| 






• *********************** 










F216| 




















F216| 


38 


WRITE 16 


SEC 






• ANTICIPATE WPROT ERR. 




F217I 


B8 






CLV 




; TO 


INDICATE WRITE PROTECT ERROR INSTEAD OF 




F218| 












; INTERRUPT 




F218| 


BD 8DC0 






LDA 


Q6H, X 










F21B| 


BD 8EC0 






LDA 


Q7L, X 




• SENSE WPROT FLAG. 




F21EI 


30F5 






BMI 


WEXIT 




■ BRANCH IF WRITE PROTECTED 




F220I 


A9 FF 


WRIT1 


LDA 


#0FF 




■ SYNC DATA. 




F222 | 


9D 8FC0 






STA 


Q7H, X 




' (5) 


GOTO WRITE MODE 




F225| 


ID 8CC0 






ORA 


Q6L, X 




• (4) 






F228| 


A0 04 






LDY 


#04 




• (2) 


FOR FIVE NIBLS. 




F22A| 


EA 






NOP 






• (2) 






F22BI 


48 






PHA 






• (4) 






F22C| 


68 






PL A 






• (3) 






F22D| 


48 


WSYNC 


PHA 






• (4) 


EXACT TIMING 




F22E| 


68 






PLA 






' (3) 






F22F| 


20 BBF2 






JSR 


WNIBL7 




■ (13 


,9,6) WRITE SYNC 




F232 | 


88 






DEY 






■ (2) 




F233I 


D0F8 






BNE 


WSYNC 




■ (2* 


) MUST NOT CROSS PAGE! 




F235| 


A9 D5 






LDA 


#0D5 




• (2) 


1ST DATA MARK 




F237| 


20 BAF2 






JSR 


WNIBL9 




" (15 


,9,6) 




F23A| 


A9 AA 






LDA 


#0AA 




• (2) 


2ND DATA MARK 




F23C| 


20 BAF2 






JSR 


WNIBL9 




" (15 


,9,6) 




F23F| 


A9 AD 






LDA 


#0AD 




• (2) 


3RD DATA MARK 




F241| 


20 BAF2 






JSR 


WNIBL9 




■ (15 


,9,6) 




F244I 


A0 55 






LDY 


#55 




• (2) 


NBUF2 INDEX 




F246I 


EA 






NOP 






' (2) 


FOR TIMING 




F247| 


EA 






NOP 






' (2) 






F248| 


EA 






NOP 






■ (2) 






F249| 


D008 






BNE 


VRYFRST 




' (3) 


BRANCH ALWAYS 




F24B| 


AD EFFF 


WINTRPT 


LDA 


INTERUPT 




• (4) 


POLL INTERRUPT LINE 




F24E| 


05 8B 






ORA 


IMASK 




■ (3) 






F250I 


38 






SEC 






" (2) 






F251I 


1057 






DC Li 






' (2) 


BRANCH IF INTERRUPT HAS OCCURED 




F253| 


3000 


VRYFRST 


BMI 


WRTFRST 




• (3) 


FOR TIMING. 




F255| 


B9 0203 


WRTFRST 


LDA 


NBUF2, Y 




" (4) 






F258| 


9D 8DC0 






STA 


Q6H, X 




• (5) 


STORE ENCODED BYTE 




F25B| 


BD 8CC0 






LDA 


Q6L, X 




• (4) 


TIME MUST = 32 US PER BYTE! 




F25E| 


88 






DEY 






■ (2) 






F25F| 


10EA 






BPL 


WINTRPT 




' (3) 


(2 IF BRANCH NOT TAKEN) 




F261 1 


98 






TV A 
1 1 A 






■ (2) 


INSURE NO INTERRUPT THIS BYTE 




F262 | 


3003 






BMI 


UMTPIT T 

WMlULirj 




' (3) 


BRANCH ALWAYS. 




F264 | 


AD EFFF 


WNTRPT1 


LDA 


T\TTT?nnnrn 
lNltKUrl 




• (4) 


POLL INTERRUPT LINE 




F267 | 


05 8B 


WMIDLE 


UKA 


IMASK 




• (3) 






F269I 


38 






SEC 






■ (2) 






F26A| 


3002 






BMI 


MFN TV T 1 TV O 




■ (3) 


BRANCH IF NO INTERRUPT 




F26C| 


103C 






DPT 

DC Li 


e Trow tci? 




• GO 


SERVICE INTERRUPT. 




F26E| 


C8 


WDATA2 


TMV 

IN I 






* (2) 

• (4) 






F26FI 


B9 0002 






LDA 


NBUF1 , Y 








F272I 


9D 8DC0 






STA 


Q6H, X 




' (5) 


STORE ENCODED BYTE 




F275I 


BD 8CC0 






LDA 


Q6L, X 




• (4) 






F278I 


C0 E4 






CPY 


#0E4 




• (2) 


WITHIN 1 MS OF COMPLETION? 




F27AI 


D0E8 






BNE 


WN1KF I 1 




• (3) 


(2) NO KEEP WRITTING AND POLLING. 




F27CI 


EA 






NOP 






• (2) 




F27DI 


C8 






INY 






• (2) 






F27E| 


EA 


W DATA 3 


NOP 






• (2) 






F27FI 


EA 






NOP 






■ (2) 






F280| 


48 






c HA 






• (4) 






F281 1 


68 






DT A 

if Li A 






• (3) 






F282 | 


B9 0002 






LDA 


XTT3 TTC 1 1 V 

NBUr 1,1 




• (4) 


WRITE LAST OF ENCODED BYTES 




F285I 


9D 8DC0 






STA 


Q6H, X 




' (5) 


WITHOUT POLLING INTERRUPTS. 




F288| 


BD 8CC0 






LDA 


rvfiT Y 
Vviif A 




■ (4) 






F28B| 


A5 96 






t nA 

Li LI A 






' (3) 


NORMALLY FOR TIMING 




F28D| 


C8 






TMV 

INI 






• (2) 






F28EI 


D0EE 








Mr\ 7\ T TV 1 

WJJAIAj 




" (3) 


(2) 




F290I 


F000 






BEQ 


WRCKSUM 




• (3) 


BRANCH ALWAYS 




F292 | 


20 BBF2 


WRCKSUM 


JSR 


WNIBL7 




• (13 


,9,6) GO WRITE CHECK SUM!! 




F295I 


48 






PHA 






• (3) 




F296I 


68 






PLA 






■ (4) 






F297| 


B9 C0F3 


WRBITSLMK 


LDA 


BITSLIPMK, Y 




' (4) 


LOAD BIT SLIP MARK 




F29A| 


20 BDF2 






JSR 


WNIBL 




" (6, 


9,6) 




F29DI 


C8 






INY 






• (2) 




F29E 1 


C0 04 






CPY 


#04 




' (2) 






F2A0I 


D0F5 






BNE 


WRBITSLMK 




• (2) 


(3) 




F2A2| 


18 






CLC 






• (2) 






F2A3I 


BD 8EC0 


NOWRITE 


LDA 


Q7L,X 




• OUT 


OF WRITE MODE. 




F2A6I 


BD 8CC0 






LDA 


Q6L, X 




■ TO 


READ MODE. 




F2A9| 


60 






RTS 






• RETURN FROM WRITE. 




F2AAI 




















F2AAI 


2C 54F3 


SERVICE 


BIT 


SEV 


; SET 


VFLAG TO INDICATE INTERRUPT 




F2ADI 


20 A3F2 






JSR 


NOWRITE 


; TAKE IT OUT OF WRITE MODE! 




F2B0| 


A5 8F 






LDA 


08F 










F2B2 | 


1002 






BPL 


$010 










F2B4 | 


85 8B 






STA 


IMASK 








J 
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F2B6| 


C6 8F 


F2B8| 


58 


F2B9| 


60 


F2BA| 




F2BA| 




F2BA| 




F2BAI 




F2BA| 




F2BA| 




F2BA| 




F2BA| 




F2BA| 




F2BA| 




F2BA| 


18 


F2BB| 


48 


F2BC| 


68 


F2BD| 


9D 8DC0 


F2C0I 


ID 8CC0 


F2C3| 


60 


F2C4| 




F2C4| 




F2C4I 




F2C4 | 




F2C4| 




F2C4 | 




F2C4 | 




F2C4I 




F2C4I 




F2C4 | 




F2C4I 




F2C4 | 




F2C4 | 




F2C4 | 




F2C4 | 




F2C4I 




F2C4I 




F2C4I 




F2C4 | 




F2C4 | 




F2C4 | 




F2C4| 




F2C4| 




F2C4 | 




F2C4| 




F2C4 | 




F2C4I 




F2C4 | 




F2C4 | 


A2 02 


F2C6| 


A0 00 


F2C8| 


88 


F2C9| 


Bl 9B 


F2CB| 


4A 


F2CC| 


3E 0103 


F2CF| 


4A 


F2D0| 


3E 0103 


F2D3| 


99 0102 


F2D6| 


E8 


F2D7| 


E0 56 


F2D9| 


90ED 


F2DB| 


A2 00 


F2DD| 


98 


F2DE| 


D0E8 


F2E0| 


A0 56 


F2E2 | 


59 0003 


F2E5I 


29 3F 


F2E7| 


AA 


F2E8| 


BD 55F3 


F2EB| 


99 0103 


F2EE| 


B9 0003 


F2F1 1 


88 


F2F2I 


D0EE 


F2F4| 


2 9 3F 


F2F6I 


59 0102 


F2F9I 


AA 


F2FA| 


BD 55F3 


F2FD | 


99 0002 


F300| 


B9 0102 


F303| 


C8 


F304| 


D0F0 


F306| 


AA 


F307 | 


BD 55F3 


F30A| 


85 96 


F30CI 


4C 4CF3 


F30F| 




F30F| 




F30F| 




F30F| 




F30F| 




F30FI 




F30FI 
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$010 



DEC 
CLI 
RTS 



08F 



COULD NOT HAVE GOT HERE WITHOUT CLI OK 



*************************, 
7-BIT NIBL WRITE SUBRS 



A-REG OR'D PRIOR EXIT 
CARRY CLEARED 



**********: 



*************** 



WNIBL9 CLC 
WNIBL7 PHA 
PLA 

WNIBL STA Q6H,X 

ORA Q6L,X 
RTS 

**************************** 

* 

PRENIBILIZE SUBR * 
(16-SECTOR FORMAT) * 
* 

**************************** 

* 

CONVERTS 256 BYTES OF * 
USER DATA IN (BUF) INTO * 
ENCODED BYTES TO BE * 
WRITTEN DIRECTLY TO DISK * 
ENCODED CHECK SUM IN * 
ZERO PAGE 'CKSUM' * 
* 

ON ENTRY * 

* 

BUF IS 2 -BYTE POINTER * 
TO 256 BYTES OF USER * 
DATA. * 
* 

A-REG CHECK SUM. * 
X-REG UNCERTAIN * 
Y-REG HOLDS 0. * 
CARRY SET. * 
* 

**************************** 
PRENIB1 6 



9 CYCLES, THEN WRITE 
7 CYCLES, THEN WRITE 



(2) 
(3) 
(4) 

(5) NIBL WRITE SUB 

(4) CLOBBERS ACC. NOT CARRY 



PRENIB1 



PRENIB3 
PRENIB2 



PRENIB4 



LDX 


#02 




; START NBUF2 INDEX. 


LDY 


#00 




; START USER BUF INDEX. 


DEY 






; NEXT USER BYTE 


LDA 


(BUF) , Y 






LSR 


A 




; SHIFT TWO BITS OF 


ROL 


NBUF2-1 , 


X 


; CURRENT USER BYTE 


LSR 


A 




; INTO CURRENT NBUF2 


ROL 


NBUF2-1, 


X 


; BYTE. 


STA 


NBUF1+1, Y 


; (6 BITS LEFT) . 


INX 






; FROM TO $55 


CPX 


#56 






BCC 


PRENIB1 




; BR IF NO WRAPAROUND 


LDX 


#00 




; RESET NBUF2 INDEX 


TYA 






; USER BUF INDEX 


BNE 


PRENIB1 




; (DONE IF ZERO) 


LDY 


#56 




; (ACC=0 FOR CHECK SUM) 


EOR 


NBUF2-2, 


Y 


; COMBINE WITH PREVIOUS 


AND 


#03F 




; STRIP GARBAGE BITS 


TAX 






; TO FORM RUNNING CHECK SUM 


LDA 


NIBL,X 




; GET ENCODED EQUIV. 


STA 


NBUF2-1, 


Y 


; REPLACE PREVIOUS 


LDA 


NBUF2-2, 


Y 


; RESTORE ACTUAL PREVIOUS 


DEY 








BNE 


PRENIB3 




; LOOP UNTIL ALL OF NBUF2 IS CONVERTED 


AND 


#3F 






EOR 


NBUF1+1, 


Y 


; NOW DO THE SAME FOR 


TAX 






; NIBBLE BUFFER 1 


LDA 


NIBL, X 




; TO DO ANY BACK TRACKING (NBUF1-1) 


STA 


NBUF1, Y 




LDA 


NBUF1+1, 


Y 


; RECOVER THAT WHICH IS NOW 'PREVIOUS' 


INY 








BNE 


PRENIB4 






TAX 






; USE LAST AS CHECK SUM 


LDA 


NIBL,X 






STA 


CKSUM 






JMP 


SET1MEG 




; ALL DONE. 



*********************; 



POSTNIBLIZE SUBR 
16-SECTOR FORMAT 



*****************; 



l Source: David T. Craig 



"_54.PICT" 578 KB 2001 -09-1 dpi: 600h x 600v pix: 4627h x 61 78v 

I Page 0012 of 0047~ 



Apple III Computer Information • Doc # 085 • Apple III Boot ROM Listing 



10/31/89 9:56 



HD: Apple ///:ROM - Disk I/O 



Page 10 



F30F 

F30F 

F310 

F312 

F314 

F317 

F31A 

F31C 

F31F 

F320 

F322 

F323 

F326 

F329 

F32C 

F32D 

F32F 

F331 

F334 

F336 

F338 

F339 

F33B 

F33E 

F341 

F342 

F345 

F346 

F348 

F349 

F34B 

F34C 

F34C 

F34F 

F351 

F354 

F355 

F355 

F355 

F355 

F355 

F355 

F355 

F355 

F355 

F355 

F355 

F355i 

F355s 

F355 

F355 

F355 

F355 

F35C 

F363 

F367 

F36E 

F375 

F377 

F37E 

F385 

F387 

F38E 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F395 

F398 

F39F 

F3A6 

F3A9: 

F3B0! 

F3B7 

F3BB 



38 

A0 55 
A9 00 
BE 0203 
5D 00F3 
3030 
9 9 0203 
88 

10A6 
C8 

BE 0002 
5D 00F3 
99 0002 
C8 

D0F4 
A6 96 
5D 00F3 
D016 
A2 56 
CA 
30FB 
B9 0002 
5E 0203 
2A 

5E 0203 
2A 

91 9B 
C8 

D0ED 
18 

F34C 
AD DFFF 
09 80 
8D DFFF 
60 



POSTNIB16 SEC 










LDY 


#55 


; 


FIRST CONVERT TO 6 BIT NIBBLES 




LDA 


#00 


; 


I NIT CHECK SUM 


PNIBL1 


LDX 


NBUF2, Y 


• 


GET ENCODED BYTE 




EOR 


DNIBL, X 








BMI 


SET1MEG 


; 


SET 1 MHZ 




STA 


NBUF2, Y 


; 


REPLACE WITH 6 BIT EQUIV. 




DEY 










BPL 


PRENIB1 


; 


LOOP UNTIL DONE WITH NIBBLE BUFFER 2 




INY 






NOW Y=0 


PNIBL2 


LDX 


NBUF1, Y 


; 


DO THE SAME WITH 




EOR 


DNIBL, X 








STA 


NBUF1, Y 


r 


NIBBLE BUFFER 1 




INY 




; 


DO ALL 256 BYTES 




BNE 


PNIBL2 








LDX 


CKSUM 


; 


MAKE SURE CHECK SUM MATCHES 




EOR 


DNIBL, X 


; 


BETTER BE ZERO 




BNE 


POSTERR 


; 


BRANCH IF IT IS 


POST1 


LDX 


#56 


r 


INIT NBUF2 INDEX 


POST2 


DEX 




r 


NBUF IDX $55 TO $00 




DMT 
DN1 


POST1 


'' 


WRAPAROUND IF NEG . 




LDA 


NBUF1 Y 








LSR 


NBUF2,X 


r 


SHIFT 2 BITS FROM 




ROL 


A 


\ 


CURRENT NBUF2 NIBL 




LSR 


NBUF2,X 




CURRENT NBUF1 




ROL 


A 


r 


NIBL. 




STA 


(BUF ) , Y 


r 


BYTE OF USER DATA 




INY 






NEXT USER BYTE 




BNE 


POST2 








CLC 




I 


GOOD DATA 


POSTERR 


.EQU 


* 






SET 1 MEG 


LDA 


ENVIRON 








ORA 


#ONEMEG 


r 


SET TO ONE MEGAHERTZ CLOCK RATE 




STA 


ENVIRON 






SEV 


RTS 






(SEV USED TO SET VFLAG) 


******* 


*********** 


********* 






; 6- 


-BIT TO 7-BIT * 






; NIBL 


CONVERSION 


TABLE * 







96 97 9A 
A6 A7 AB 
B2 B3 B4 
B6 B7 B9 
BE BF CB 
D6 D7 
D9 DA DB 
E5 E6 E7 
ED EE 
EF F2 F3 
F9 FA FB 



9B 9D 9E 9F 
AC AD AE AF 
B5 

BA BB BC BD 
CD CE CF D3 

DC DD DE DF 
E9 EA EB EC 

F4 F5 F6 F7 
FC FD FE FF 



F300 

01 00 01 

98 99 02 03 9C 04 05 

06 A0 Al A2 A3 A4 A5 

07 08 A8 

A9 AA 09 0A 0B 0C 0D 
B0 Bl 0E 0F 10 11 12 
13 B8 14 15 
16 17 18 19 1A 



************************* 
* 

CODES WITH MORE THAN * 
ONE PAIR OF ADJACENT * 
ZEROES OR WITH NO * 
ADJACENT ONES (EXCEPT * 
B7) ARE EXCLUDED. * 

************************* 
NIBL .BYTE 96,97, 9A, 9B, 9D, 9E, 9F, 0A6, 0A7 , 0AB , 0AC , 0AD , 0AE , 0AF , 0B2 , 0B3, 0B4 , 0B5 

.BYTE 0B6, 0B7, 0B9, 0BA, 0BB, 0BC, 0BD, 0BE, 0BF, 0CB, 0CD, 0CE, 0CF, 0D3, 0D6, 0D7 

.BYTE 0D9, 0DA, 0DB, 0DC, 0DD, 0DE, 0DF, 0E5, 0E6, 0E7, 0E9, 0EA, 0EB, 0EC, 0ED, 0EE 

.BYTE 0EF, 0F2, 0F3, 0F4 , 0F5, 0F6, 0F7, 0F9, 0FA, 0FB, 0FC, 0FD, 0FE, 0FF 

************************** 
* 

7-BIT TO 6-BIT * 
'DENIBLIZE * TABL * 
(16-SECTOR FORMAT) * 
* 

VALID CODES * 
$96 TO $FF ONLY. * 
* 
★ 

CODES WITH MORE THAN * 
ONE PAIR OF ADJACENT * 
ZEROES OR WITH NO * 
ADJACENT ONES (EXCEPT * 
BIT 7) ARE EXCLUDED * 
************************** 

DNIBL .EQU REGRWTS+300 

.BYTE 01,00,01 

. BYTE 9 8 , 9 9 , 02 , 03 , 9C , 04 , 05 , 06 , 0A0, 0A1 , 0A2 , 0A3 , 0A4 , 0A5 , 07 , 08 , 0A8 

.BYTE 0A9,0AA,09,0A,0B,0C,0D,0B0,0B1,0E,0F,10, 11 , 12, 13, 0B8, 14, 15 

.BYTE 16,17, 18,19, 1A 
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F3C0 

F3C7 

F3CE 

F3D0 

F3D7 

F3DE 

F3E2 

F3E9 

F3F0 

F3F4 

F3FB 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400 

F400: 

F400! 

F400 

F400I 

F400I 

F400! 

F400| 

F400I 

F400| 

F400I 

F400 

F400 

F400 

F400 

F400 

F400 

F402 

F404 

F406 

F408 

F40A 

F40C 

F40E 

F40F 

F411 

F413 

F415 

F417 

F419 

F41B 

F41D 

F41F 

F421 

F423 

F425 

F427 

F429 

F42A 

F42B 

F42E 

F431 

F434 

F436 

F437 

F43A 

F43D 

F440 



DE AA EB 
C7 C8 C9 
ID IE 
D0 Dl D2 
21 D8 22 
27 28 E0 
E2 E3 E4 
2C 2D 2E 
F0 Fl 33 
35 36 37 
3B 3C 3D 



FF C4 C5 C6 
CA IB CC 1C 

IF D4 D5 20 
23 24 25 26 
El 

29 2A 2B E8 
2F 30 31 32 
34 

38 F8 39 3A 
3E 3F 



BITSLIPMK .BYTE 0DE, 0AA, 0EB, 0FF, 0C4 f 0C5, 0C6, 0C7, 0C8, 0C9, 0CA, IB, 0CC, 1C, ID, IE 

.BYTE 0D0,0Dl r 0D2,lF,0D4,0D5,20,21,0D8,22,23,24, 25,26, 27,28, 0E0,0E1 

.BYTE 0E2,0E3,0E4,29,2A,2B,0E8,2C,2D,2E,2F,30,31,32,0F0,0F1,33,34 

.BYTE 35,36,37,38,0F8,39,3A,3B,3C,3D,3E,3F 



:************************ 

FAST SEEK SUBROUTINE * 
* 

************************ 
* 

ON ENTRY * 

* 

X-REG HOLDS SLOTNUM * 
TIMES $10 * 
* 

A-REG HOLDS DESIRED * 
HALFTRACK. * 
* 

CURTRK HOLDS DESIRED * 
HALFTRACK. * 
* 

ON EXIT * 

* 

A-REG UNCERTAIN. * 
Y-REG UNCERTAIN. * 
X-REG UNDISTURBED. * 
* 

CURTRK AND TRKN HOLD * 
FINAL HALFTRACK. * 
* 

PRIOR HOLDS PRIOR * 
HALFTRACK IF SEEK * 
WAS REQUIRED. * 
* 

MONT I MEL AND MONT I ME H * 
ARE INCREMENTED BY * 
THE NUMBER OF * 
100 USEC QUANTUMS * 
REQUIRED BY SEEK * 
FOR MOTOR ON TIME * 
OVERLAP . * 
* 

VARIABLES USED * 

* 

CURTRK, TRKN, COUNT, * 
PRIOR, SLOTTEMP * 
MONT I MEL, MONTIMEH * 





****************** 


******** 






85 9E 


SEEK 


STA 


TRKN 


; SAVE TARGET TRACK 




C5 8C 




CMP 


CURTRK 


; ON DESIRED TRACK? 




F042 




BEQ 


SETPHASE 


; YES, ENERGIZE PHASE AND RETURN 




A9 00 




LDA 


#00 






85 95 




STA 


TRKCNT 


; HALFTRACK COUNT. 




A5 8C 


SEEK2 


LDA 


CURTRK 


; SAVE CURTRK FOR 




85 9D 




STA 


PRIOR 


; DELAYED TURN OFF. 




38 




SEC 








E5 9E 




SBC 


TRKN 


; DELTA-TRACKS. 




F031 




BEQ 


SEEKEND 


; BR IF CURTRK=DEST I NAT I ON 




B006 




BCS 


OUT 


; (MOVE OUT, NOT IN) 




4 9 FF 




EOR 


#0FF 


; CALC TRKS TO GO. 




E6 8C 




INC 


CURTRK 


; DECR CURRENT TRACK (OUT) 




9004 




BCC 


MINTST 


; (ALWAYS TAKEN) . 




69 FE 


OUT 


ADC 


#0FE 


; CALC TRACKS TO GO. 




C6 8C 




DEC 


CURTRK 


; DECR CURRENT TRACK (OUT) 




C5 95 


MINTST 


CMP 


TRKCNT 




9002 




BCC 


MAXTST 


; AND 'TRKS MOVED' 




A5 95 




LDA 


TRKCNT 






C9 09 


MAXTST 


CMP 


#09 






B002 




BCS 


STEP 2 


; IF TRKCNT>$08 LEAVE Y ALONE (Y= 


$08) 


A8 


STEP 


TAY 




; ELSE SET ACCELERATION INDEX IN 


Y 


38 




SEC 








20 48F4 


STEP 2 


JSR 


SETPHASE 






B9 67F4 




LDA 


ONTABLE, Y 


; FOR ' ONTIME ' 




20 56F4 




JSR 


MSWAIT 


; (100 USEC INTERVALS) 




A5 9D 




LDA 


PRIOR 






18 




CLC 




; FOR PHASE OFF 




20 4AF4 




JSR 


CLRPHASE 


; TURN OFF PRIOR PHASE 




B9 70F4 




LDA 


OFFTABLE, Y 


; THEN WAIT ' OFFTIME' 




20 56F4 




JSR 


MSWAIT 


; (100 USEC INTERVALS) 




E6 95 




INC 


TRKCNT 


; 'TRACKS MOVED' COUNT. 
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F442| 


D0C6 


F444 


20 


56F4 


F447 


18 




F448 


A5 


8C 


F44A 


29 


03 


F44C 


2A 




F44D| 


05 


81 


F44F| 


AA 




F450| 


BD 


80C0 


F453| 


A6 


81 


F455| 


60 




F456| 






F456 | 






F456| 






F456| 






F456I 






F456| 






F456| 






F456| 






F456| 






F456| 






F456| 






F456| 






F456| 






F456| 






F456I 






F456| 






F456 | 






F456 | 






F456 | 






F456 | 






F456 | 






F456 | 






F456 | 






F456 | 






F456| 






F456 | 






F456 | 






F456 | 






F456 j 






F456| 






F456I 


A2 


11 


F458| 


CA 




F459| 


D0FD 


F45BI 


E6 


99 


F45D| 


D002 


F45F| 


E6 


9A 


F461 1 


38 




F462 | 


E9 


01 


F464 | 


D0F0 


F466 j 


60 




F4 67 | 






F467 | 






F467 j 






F467 j 






F467 j 






F467 j 






F467 j 






F467 | 






F467 | 






F467 | 


01 


30 28 


F46E j 


1C 


1C 


F470| 


70 


2C 26 


F477 | 


1C 


1C 


F479| 






F479 j 


86 


83 


F47BI 


A0 


05 


F47D j 


48 




F47E | 


0A 




F47F | 


26 


83 


F481 1 


88 




F482 | 


D0FA 


F484 | 


68 




F485 | 


29 


07 


F487 | 


A8 




F488 | 


B9 


A0F4 


F48B | 


85 


84 


F48D| 


20 


00F0 


F490I 


B00B 


F492| 


E6 


86 


F494I 


E6 


84 


F496| 


E6 


84 


F498I 


20 


00F0 


F49BI 


C6 


86 


F49D| 


A5 


88 


F49F| 


60 




F4A0| 






F4A0I 


00 


04 08 


F4A7| 


0D 




F4A8| 









BNE 


SEEK 2 




(ALWAYS TAKEN) 


SEEKEND 


JSR 


MSWAIT 




SETTLE 25 MSEC 




CLC 






SET FOR PHASE OFF 


SETPHASE 


LDA 


CURTRK 




GET CURRENT TRACK 


CLRPHASE 


AND 


#03 




MASK FOR 1 AND 4 PHASES 




ROL 


A 




DOUBLE FOR PHASE ON /OFF 




ORA 


IB SLOT 








TAX 










LDA 


PHASEOFF,X 




TURN ON /OFF ONE PHASE 




LDX 


IBSLOT 




RESTORE X-REG 


SEEKRTS 


RTS 






AND RETURN 



*************************** 

* 

MSWAIT SUBROUTINE * 
* 

*************************** 

* 

DELAYS A SPECIFIED * 
NUMBER OF 100 USEC * 
INTERVALS FOR MOTOR * 
ON TIMING * 
* 

ON EXIT * 

* 

A-REG HOLDS $00 * 
X-REG HOLDS $00 * 
Y-REG UNCHANGED * 
CARRY SET * 
* 

MONTI MEL, MONT I ME H * 
ARE INCREMENTED ONCE * 
PER 100 USEC INTERVAL * 
FOR MOTOR ON TIMING * 



ASSUMES 



1 USEC CYCLE TIME 



MSWAIT 


LDX 


#11 




MSW1 


DEX 




; DELAY 8 6 USEC 




BNE 


MSW1 






INC 


MONT I MEL 






BNE 


MSW2 


; DOUBLE BYTE INCREMENT 




INC 


MONTIMEH 




MSW2 


SEC 








SBC 


#01 


; DONE IN INTERVALS 




BNE 


MSWAIT 


; (A-REG COUNTS) 




RTS 







************** 



******** 



PHASE ON-, OFF-TIME 
TABLES IN 100-USEC 
INTERVALS. (SEEK) 



********* 


******** 


********* 


ONTABLE 


.BYTE 


01,30,28, 


OFFTABLE 


.BYTE 


70,2C,26, 


BLOCKIO 


STX 


IBTRK 




LDY 


#05 




PHA 




TRKSEC 


ASL 


A 




ROL 


IBTRK 




DEY 






BNE 


TRKSEC 




PLA 






AND 


#07 




TAY 






LDA 


SECTABL, Y 




STA 


IBSECT 




JSR 


REGRWTS 




BCS 


QUIT 




INC 


IBBUFP+1 




INC 


IBSECT 




INC 


IBSECT 




JSR 


REGRWTS 




DEC 


IBBUFP+1 


QUIT 


LDA 


IB STAT 




RTS 




SECTABL 


.BYTE 


00,04,08, 


• ******** 


******** 


*********** 
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F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4A8 
F4AB 
F4AE 
F4B1 
F4B3 
F4B6 
F4B8 
F4B9 
F4BC 
F4BF 
F4C1 
F4C4 
F4C5 
F4C5 



JOYSTICK READ ROUTINE * 

******************************* 
ENTRY ACC= COUNT DOWN HIGH * 
X&Y= DON'T CARE * 
* 

EXIT ACC= TIMER HIGH BYTE * 
Y= TIMER LOW BYTE * 
CARRY CLEAR * 
* 

IF CARRY SET, ROUTINE * 
WAS INTERRUPTED & * 
ACC & Y ARE INVALID * 
******************************* 



FFD9 
FFD8 
FFD9 
C06 6 

F4A8 
8D D9FF 
AD EFFF 
2D 66C0 
30F8 
AD 66C0 
300C 
18 

AD D9FF 
AC D8FF 
1003 
AD D9FF 
60 



TIMLATCH .EQU 

TIMER1L .EQU 

TIMER 1H .EQU 

JOYRDY .EQU 

ANALOG .EQU 
STA 

ANLOG1 LDA 
AND 
BMI 
LDA 
BMI 
CLC 
LDA 
LDY 
BPL 
LDA 

GOO DTI ME RTS 
.END 



0FFD9 
0FFD8 
0FFD9 
0C066 



TIMLATCH 

INTERUPT 

JOYRDY 

ANLOG1 

JOYRDY 

GOODTIME 

TIMER1H 
TIMER1L 
GOODTIME 
TIMER1H 



CARRY SHOULD BE SET! 
START THE TIMER! 

WAIT FOR ONE OR THE OTHER TO GO LOW 

WAS IT REALLY THE JOPYSTICK? 
NOPE, WHAT TIME IS IT? 
TIME'S A SLIP SLIDIN AWAY 
NOW, WHAT TIME IS IT? 

TIME WAS VALID! 
HI BYTE CHANGED 



SYMBOL TABLE DUMP 



AB - Absolute 
RF - Ref 
PB - Public 



LB - Label UD 
DF - Def PR 
PV - Private CS 



ALDONE1 LB 
BITSLIPM LB 
CHKINT LB 
CORRECTV LB 
CURTRK AB 
DRVERR LB 
DVMOT AB 
GOODTIME LB 
IBBUFP AB 
IBRERR AB 
IBTRK AB 
JOYRDY AB 
MONT I MEL AB 



MSW2 LB 
NIBL LB 
OK LB 
PHASEON AB 
POST1 LB 
PRENIB1 6 LB 



Q6H 

RD1 

RD5A 

RDA4 

RDAFLD 

RDEXIT 

RSYNC 

SEEK 



SEEKRTS LB 

SEV LB 

TIMER1L AB 

TRKN1 AB 

TRYTRK2 LB 

W DATA 3 LB 

WNIBL7 LB 

WRIT LB 



F0EB 
F3C0 
F1AA 
F0C4 
008C 
F0E8 
00E0 
F4C4 
0085 
0083 
0083 
C06 6 
0099 
F461 
F355 
F04 8 
C081 
F336 
F2C4 
C08D 
F14D 
F181 
F1E7 
F1E5 
F214 
F14A 
F400 
F455 
F354 
FFD8 
0099 
F07F 
F27E 
F2BB 
F0F9 



ALLDONE 

BLOCKIO 

CKDRTS 

COUNT 

DISKIO 

DRVINDX 

ENVIRON 

GOSEEK 

IBCMD 

IBSECT 

IBWPER 

LAST 

MOTOF 

MSWAIT 

NODRIVER 

ONEMEG 

PHASON 

POST2 

PRENIB2 

Q6L 

RD2 

RD6 

RDA5 

RDASN1 

RDRIGHT 

RSYNC 1 

SEEK1 

SERVICE 

STEP 

TIMLATCH 

TRKSEC 

TWOMEG 

WEXIT 

WNIBL9 

WRIT1 



LB F0E3 
LB F479 
LB F13D 
AB 0095 

PR 

LB F13E 
AB FFDF 
LB F115 
AB 0087 
AB 0084 
AB 0081 
AB 0095 
LB F052 
LB F456 
LB F064 
AB 0080 
AB C081 
LB F338 
LB F2E5 
AB C08C 
LB F157 
LB F195 
LB FIEF 
LB F1C9 
LB F0AC 
LB F152 
LB F105 
LB F2AA 
LB F42 9 
AB FFD9 
LB F47E 
AB 007F 
LB F215 
LB F2BA 
LB F220 



Undefined 

Proc 

Consts 

ALLOFF 

BUF 

CKSUM 

CSSTV 

DNIBL 

DRVOEN 

ENVTEMP 

GOSERV 

IBDERR 

IBSLOT 

I MASK 

MAXTST 

MOTOROFF 

MYSEEK 

NOWRITE 

ONTABLE 

PHSOFF 

POSTERR 

PRENIB3 

Q7H 

RD3 

RDA1 

RDA6 

RDASYN 

READ 16 

RTTRK 

SEEK2 

SET 1 MEG 

STEP2 

TRACK 

TRYADR 

VOLUME 

WINTRPT 

WNTRPT1 

WRITE 16 



MC 

FC 



LB F118 
AB 00 9B 
AB 0096 
AB 0097 
LB F300 
AB C08A 
AB 009F 
LB F1B4 
AB 0082 
AB 0081 
AB 008B 
LB F425 
AB C088 
LB F104 
LB F2A3 
LB F467 
AB C080 
LB F34C 
LB F2E2 
AB C08F 
LB F163 
LB F1C4 
LB F201 
LB F1BD 
LB F148 
LB F0C0 
LB F40A 
LB F34C 
LB F42B 
AB 0099 
LB F083 
AB 009A 
LB F24B 
LB F264 
LB F216 



Macro 
Func 



ANALOG 

CHKDRV 

CLRPHASE 

CSUM 

DRIVSEL 

DRVOTRK 

GOCAL 

HNDLERR 

IBDRVN 

IBSMOD 

INTERUPT 

MINTST 

MOTORON 

NBUF1 

NXOFF 

OUT 

PNIBL1 

POSTNIB1 

PRENIB4 

Q7L 

RD4 

RDA2 

RDA7 

RDCKSUM 

REGRWTS 

SECT 

SEEKCNT 

SETPHASE 

TEMP 

TRKCNT 

TRYADR2 

VRYFRST 

WMIDLE 

WRBITSLM 

WRTFRST 



LB F4A8 
LB F12B 
LB F44A 
AB 008 9 
LB F035 
AB 0085 
LB F0A7 
LB F0EA 
AB 0082 
AB 0089 
AB FFEF 
LB F41F 
AB C089 
AB 0200 
LB F11A 
LB F41B 
LB F314 
LB F30F 
LB F2F6 
AB C08E 
LB F16E 
LB F1CE 
LB F20B 
LB F1A0 
LB F000 
AB 0098 
AB 0094 
LB F448 
AB 0097 
AB 0095 
LB F08A 
LB F253 
LB F267 
LB F297 
LB F255 



ANLOG1 

CHKDRV1 

CONWAIT 

CSUM1 

DRV 1 EN 

DRVWAIT 

GOCAL 1 

HRDERRS 

IBNODRV 

IBSTAT 

IOBPDN 

MONTIMEH 

MSW1 

NBUF2 

OFFTABLE 

PHASEOFF 

PNIBL2 

PRENIB1 

PRIOR 

QUIT 

RD5 

RDA3 

RDADR16 

RDERR 

RETRYCNT 

SECTABL 

SEEKEND 

SETTRK 

TIMER1H 

TRKN 

TRYTRK 

W DATA 2 

WNIBL 

WRCKSUM 

WSYNC 



LB F4AB 
LB F12D 
LB F054 
AB 0097 
AB C08B 
LB F041 
LB F0A6 
AB 0080 
AB 0080 
AB 0088 
AB 008A 
AB 00 9 A 
LB F458 
AB 0302 
LB F470 
AB C080 
LB F323 
LB F2C8 
AB 009D 
LB F49D 
LB F180 
LB F1D9 
LB F1B9 
LB F1B7 
AB 0093 
LB F4A0 
LB F444 
LB F125 
AB FFD9 
AB 009E 
LB F069 
LB F26E 
LB F2BD 
LB F292 
LB F22D 



Assembly complete: 107 6 lines 

Errors flagged on this Assembly 



6502 OPCODE STATIC FREQUENCIES 



ADC : 
AND : 



******* 



l Source: David T. Craig 
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ASL 


: 3 


| 


* * 






BCC 


: 10 


| 


******** 






BCS 


: 7 


| 


****** 






BEQ 


: 8 


| 


******* 






BIT 


: 3 


| 


* * 






BMI 


: 10 


| 


******** 






BNE 


: 38 


| 


********************************* 






BPL 


: 28 


j 


************************ 






BVC 


; \ 


m 








CLC 


. 9 


| 


******* 






CLI 


; 2 


1 


* 






CLV 


; \ 


m 








CMP 


'. 14 


I 


************ 






CPX 


; 1 


m 








CPY 


: 4 


I 


* * * 






DEC 


: 5 


| 


** ** 






DEX 


: 2 


1 


* 






DEY 


: 13 


I 


*********** 






EOR 


8 


| 


******* 






INC 


10 


| 


******** 






I NX 


2 


| 


* 






I NY 


12 


| 


********** 






JMP 


2 


| 


* 






JSR 


39 


j 


********************************** 






LDA 


86 




****************************** it******************** 






LDX 


12 


| 


********** 






LDY 


18 


| 


*************** 






LSR 


9 


j 


******* 






NOP 


13 


j 


*********** 






ORA 


9 


j 


******* 






PHA 


10 


| 


******** 






PHP 


4 


I 


* * * 






PLA 


1 1 


| 


********* 






PLP 


3 


I 


* * 






ROL 


7 


| 


****** 






ROR 


6 


j 


***** 






RTS 


16 


| 


************** 






SBC 


2 


| 


* 






SEC 


9 


| 


******* 






SEI 


1 


m 








STA « 


42 


| 


************************************ 






STX . 


1 


m 








STY : 


3 




* * 






TAX : 


5 




** ** 






TAY : 


3 




** 






TXA : 


1 


m 








TYA : 


4 


1 


** * 






Minimum frequency = 1 






Maximum frequency = 86 






Average frequency = 10 






Unused opcodes 








BRK 


BVS CLD 


RTI SED TSX TXS 






Program opcode 


usage: 87 % 






(1.00) That's all. 


Folks . . . 
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0000 
0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

F4C5 

F4CC 

F4CD! 

F4CDI 

F4CF | 

F4D0I 

F4D2[ 

F4D3[ 

F4D5I 

F4D6 

F4D9 

F4DA 

F4DC 

F4DD 

F4E4 

F4E6 

F4E7 

F4E8 

F4E9 

F4ED 

F4EE 

F4EE 



0001 
0000 
0010 
0018 
0019 
001 A 
0087 
0085 
0091 
F479 
005D 
00FF 
1419 
1810 
C000 
C008 
C010 
C058 
C04 7 
C050 
C051 
C066 
C0D0 
C0F1 
C0F2 
C0F3 
C100 
C200 
C300 
C400 
CFFF 
FFD0 
FFDF 
FFD2 
FFD3 
FFE0 
FFEF 
FFE2 
FFE3 
FC25 
FD07 
FD0F 
FBC7 
FD98 
FD9D 
F901 



00 Bl B2 BA B9 10 00 
13 

F4CD 
52 41 
CD 

52 4F 
CD 

56 49 
CI 

41 43 49 
CI 

41 2F 
C4 

44 49 41 47 4E 4F 53 

54 49 

C3 

5A 

D0 

52 45 54 52 
D9 



• APPLE /// ROM - DIAGNOSTIC ROUTINES 

* COPYRIGHT 1979 BY APPLE COMPUTER, INC. 



.ABSOLUTE 

.PROC SARATESTS 



********** 



********************* 



*******! 



********* 



SARA DIAGNOSTIC TEST ROUTINES 

DECEMBER 18. 1979 ^ 

BY 

W . BROEDNER & R. LASHLEY 

COPYRIGHT 197 9 BY APPLE COMPUTER, INC. 



********************************************* 



ROM 

ZRPG 

ZRPG1 

PTRLO 

PTRHI 

BNK 

IBCMD 

IBBUFP 

PREVTRK 

BLOCK 10 

CV 

STK0 

I BNK 

PHPR 

KYBD 

KEYBD 

KBDSTRB 

PDLEN 

ADRS 

GRMD 

TXTMD 

ADTO 

DISKOFF 

ACIAST 

ACIACM 

ACIACN 

SLT1 

SLT2 

SLT3 

SLT4 

EXPROM 

ZPREG 

SYSD1 

SYSD2 

SYSD3 

SYSE0 

BNKSW 

SYSE2 

SYSE3 

COUT 

CROUT1 

KEY IN 

SETCVH 

CLDSTRT 

SETUP 

MONITOR 



RAMTBL 



CHPG 



yd "KM: 



.EQU 01 

•EQU 00 

.EQU 10 

.EQU ZRPG1+08 

•EQU ZRPG1+09 

.EQU ZRPG1+0A 

.EQU 87 

.EQU 85 

.EQU 91 

.EQU 0F47 9 

.EQU 5D 

.EQU 0FF 

•EQU 1400+PTRHI 

.EQU 1800+ZRPG1 

.EQU 0C000 

.EQU 0C008 

•EQU 0C010 

•EQU 0C058 

.EQU 0C047 

.EQU 0C050 

.EQU 0C051 

.EQU 0C066 

.EQU 0C0D0 

.EQU 0C0F1 

.EQU 0C0F2 

.EQU 0C0F3 

.EQU 0C100 

.EQU 0C200 

.EQU 0C300 

.EQU 0C400 

•EQU 0CFFF 

■EQU 0FFD0 

.EQU 0FFDF 

.EQU 0FFD2 

.EQU 0FFD3 

.EQU 0FFE0 

.EQU 0FFEF 

,EQU 0FFE2 

.EQU 0FFE3 

,EQU 0FC25 

•EQU 0FD07 

.EQU 0FD0F 

■EQU 0FBC7 

EQU 0FD98 

EQU 0FD9D 

EQU 0F901 

ORG 0F4C5 

BYTE 00,0B1,0B2,0BA,0B9,10,00,13 




f ,rf. .,*> 



4 



.EQU 


* 






.ASCII 


"RA" 






.BYTE 


0CD 




M 


.ASCII 


"RO" 






.BYTE 


0CD 




M 


.ASCII 


"VI " 






.BYTE 


0C1 




A 


.ASCII 


"ACI" 






.BYTE 


0C1 




A 


.ASCII 


"A/" 






.BYTE 


0C4 


r 


D 


.ASCII 


"DIAGNOSTI" 






.BYTE 


0C3 




C 


.ASCII 


ii z H 






.BYTE 


0D0 




P 


-ASCII 


"RETR" 






.BYTE 


0D9 


r 


Y 



SETUP SYSTEM 



l Source: David T. Craig 
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F4EE 




; 






F4EE 




; 






F4EE 


A9 53 




LDA 


#52+ROM 


F4F0 


8D DFFF 




STA 


SYSD1 


F4F3 


A2 00 




LDX 


#00 


F4F5 


8E E0FF 




STX 


SYSE0 


F4F8 


8E EFFF 




STX 


BNKSW 


F4FB 


8E D0FF 




STX 


ZPREG 


F4FE 


CA 




DEX 




F4FF 


8E D2FF 




STX 


SYSD2 


F502 


8E D3FF 




STX 


SYSD3 


F505 


9A 




TXS 


F506 j 


E8 




I NX 




F507 j 


A9 0F 




LDA 


#0F 


F509 | 


8D E3FF 




STA 


SYSE3 


F50C | 


A9 3F 




LDA 


#3F 


F50E| 


8D E2FF 




STA 


SYSE2 


F511 1 


A0 0E 




LDY 


#0E 


F513 


B9 D0C0 


DISK1 


LDA 


DISKOFF, Y 


F516 j 


88 




DEY 




F517 | 


88 




DEY 




F518 | 


10F9 




BPL 


DISK1 


F51A| 


AD 08C0 




LDA 


KEYBD 


F51D| 


2 9 04 




AND 


#04 


F51F| 


D003 




BNE 


NXBYT 


F521 1 


4C 86F6 




JMP 


RECON 


F524 | 










F524 j 




; VERIFY ZERO PAGE 




F524 | 




; 






F524 j 


A9 01 


NXBYT 


LDA 


#01 


F52 6 | 


95 00 


NXBIT 


STA 


ZRPG,X 


F528 | 


D5 00 




CMP 


ZRPG,X 


F52AI 


D0FE 


NOGOOD 


BNE 


NOGOOD 


F52C| 


0A 




ASL 


A 


F52D| 


D0F7 




BNE 


NXBIT 


F52F | 


E8 




INX 


F530| 


D0F2 




BNE 


NXBYT 


F532I 


8A 


CNTWR 


TXA 


F533I 


48 




PHA 




F534 j 


E8 




INX 




F535I 


D0FB 




BNE 


CNTWR 


F537 | 


CA 




DEX 


F538 | 


86 18 




STX 


PTRLO 


F53A| 


68 


PULBT 


PLA 




F53B | 


C5 18 




CMP 


PTRLO 


F53D | 


D0EB 




BNE 


NOGOOD 


F53F | 


C6 18 




DEC 


PTRLO 


F54 1 1 


D0F7 




BNE 


PULBT 


F543 | 


68 




PLA 




F54 4 | 
F54 6 | 


D0E4 






NOGOOD 


F54 6 | 




; SIZE 


IN MEMORY 




F54 6 j 










F54 6 | 


A2 08 




LDX 


#08 


F54 8 | 


95 10 


NOMEM 


STA 


ZRPG1,X 


F54A| 


CA 




DEX 




F54B | 


10FB 




BPL 


NOMEM 


F54D | 


A2 02 




LDX 


#02 


F54F | 


86 19 


NMEM1 


STX 


PTRHI 


F551 1 


A9 00 




LDA 


#00 


F553 | 


A0 FF 




LDY 


#0FF 


F555 1 


91 18 




STA 


(PTRLO) , Y 


F557 | 


Dl 18 




CMP 


(PTRLO) , Y 


F55 9 | 


F007 




BEQ 


NMEM2 


F55B| 


20 48F7 




JSR 


RAM 


F55E j 


94 10 




STY 


ZRPG1,X 


F560| 


A6 19 




LDX 


PTRHI 


F562 j 


E8 


NMEM2 


INX 


F563 | 


E0 C0 




CPX 


#0C0 


F565 | 


D0E8 




BNE 


NMEM1 


F567 | 


A2 20 




LDX 


#20 


F569 | 


EE EFFF 




INC 


BNKSW 


F56C | 


AD EFFF 




LDA 


BNKSW 


F56F | 


2 9 0F 




AND 


#0F 


F571 1 


C9 03 




CMP 


#03 


F573 | 


D0DA 




BNE 


NMEM1 


F575 | 










F575| 




; SETUP 


SCREEN 




F575| 










F575I 


20 9DFD 


ERRLP 


JSR 


SETUP 


F578I 


A2 00 




LDX 


#00 


F57A| 


8E E0FF 




STX 


SYSE0 


F57D| 


CA 




DEX 




F57EI 


8E D2FF 




STX 


SYSD2 


F581I 


8E D3FF 




STX 


SYSD3 


F584 | 


A9 3F 




LDA 


#3F 


F586| 


8D E2FF 




STA 


SYSE2 


F589| 


A9 0F 




LDA 


#0F 


F58B| 


8D E3FF 




STA 


SYSE3 


F58E| 


A2 10 




LDX 


#10 



TURN OFF SCREEN, SET 2MHZ SPEED 

AND RUN OFF ROM 

SET BANK SWITCH TO ZERO 



AND SET ZERO PAGE SAME 
PROGRAM DDR'S 



ROTATE A 1 THROUGH 
EACH BIT IN THE PG 
TO COMPLETELY TEST 
THE PAGE. HANG IF NOGOOD. 
TRY NEXT BIT OF BYTE 
UNTIL BYTE IS ZERO. 
CONTINUE UNTIL PAGE 
IS DONE. 

PUSH A DIFFERENT 
BYTE ONTO THE 
STACK UNTIL ALL 
STCK BYTES ARE FULL. 
THEN PULL THEM 
OFF AND COMPARE TO 
THE COUNTER GOING 
BACKWARDS. HANG IF 
THEY DON'T AGREE. 
GET NEXT COUNTER BYTE 
CONTINUE UNTIL STACK 
IS DONE. TEST LAST BYTE 
AGAINST ZERO. 



ZERO THE BYTES USED TO DISPLAY 

THE BAD RAM LOCATIONS 

EACH BYTE= A CAS LINE 

ON THE SARA BOARD. 

STARTING AT PAGE 2 

TEST THE LAST BYTE 

IN EACH MEM PAGE TO 

SEE IF THE CHIPS ARE 

THERE .. (AVOID & STK PAGES) 

CAN THE BYTE BE O'D? 

; NO, FIND WHICH CAS IT IS. 

; SET CORRES. BYTE TO $FF 

; RESTORE X REGISTER 

; AND INCREMENT TO NEXT 

; PAGE UNTIL I/O IS REACHED. 

; THEN RESET TO PAGE 20 

; AND GOTO NEXT BANK TO 

; CONTINUE. (MASK INPUTS 

; FROM BANKSWITCH TO SEE 

; WHAT SWITCH IS SET TO) 

; CONTINUE UNTIL BANK '3' 



CALL SCRN SETUP ROUTINE 
SETUP I/O AGAIN 
FOR VIA TEST 
PROGRAM DATA DIR 
REGISTERS 



HEADING OF 'DIAGNOSTICS' WITH 
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F590| 


20 38F7 




JSR 


STRWT 








F593| 


A2 00 


XjKKLirl 


LDX 


IfrOiO 


• PT3TMT 1 I'D AMI 

f xrKlIMl KAM 






F595I 


8 6 5D 




STX 


cv 


• CIPT PTTRQOR TO 9Mn T TMP 

t OCjX V»UI\OV-T\. ±\J £. DiLf XjXINXj 






F597| 


A9 04 




LDA 


#04 


• ^P2vpp rrrp^op nriT "i 

f ijrn^Ei UUX J 






F599| 


20 C7FB 




JSR 


SETCVH 


(Y ^TTT.T^PJ ON RFTtTRXM 






F59C| 


20 38F7 




JSR 


STRWT 


t x nij onncj oudkuu x x inij 






F59F| 


A2 07 




LDX 


#07 


; FOR BYTES 7 - IN 






F5A1I 


F5A1 


n 1\ \MWrn 1 

KAMWil 


.EQU 


* 








F5A1 1 


B5 10 




LDA 


7PPf:i v 

tixvtro x f A 


, UU1 XjALH oil Ab A 






F5A3| 


A0 08 




LDY 




• I 1 r\T3 111 f f\T3 TMTMr'TiltP 

r UK 1 r UK llNLJlL.Al.fcj 


BAD 


OR MISSING RAM 


F5A5 | 


0A 


RAMWT2 


ASL 


A 


; CHIPS SUBROUTINE 'RAM' 




RAM 


F5A6 | 


48 




PHA 




; bblb Ur IHriShj BYTES 






F5A7 | 


A9 AE 




LDA 


#0AE 


; LOAD A * . ' TO ACC. 






F5A9 | 


9002 




BCC 


D AMWTM 








F5AB| 


A9 31 




LDA 


ffJl 


, LUAD A 1 1U ALL . 






F5AD| 


20 25FC 


RAMWT4 


JSR 


COUT 


• 7i XTr> nn T KIT 1 TT> 

, AMU rKxNl 11 






F5B0| 


68 




PLA 




f Krib lUKij xJIIxj 






F5B1 1 


88 




DEY 




; AND KUlAlr, ALL o 






F5B2 | 


D0F1 




BNE 


KAMW LZ 


; TIMES 






F5B4 | 


20 07FD 




JSR 


LKUU 1 1 


; llUjAK iu bNU yjc line. 






F5B7 | 


CA 




DEX 










F5B8| 


10E7 




BPL 


xx/\ ~lri J. J. 








F5BA| 
















F5BA| 




; ZPG & STK TEST 










F5BA| 
















F5BA| 


9A 




TXS 










F5BB j 


8C EFFF 




STY 










F5BE | 


98 


ZP1 


TYA 










F5BFI 


8D D0FF 




STA 


ZPREG 








F5C2 | 


85 FF 




STA 


STK0 








F5C4 | 


C8 




INY 










F5C5I 


98 




TYA 










F5C6| 


48 




PHA 










F5C7| 


68 




PLA 










F5C8| 


C8 




INY 










F5C9| 


C0 20 




CPY 


#20 








F5CB| 


D0F1 




BNE 


ZP1 








F5CD| 


A0 00 




LDY 


#00 








F5CFI 


8C D0FF 




STY 


ZPREG 








F5D2 | 


8 6 18 




STX 


PTRLO 








F5D4 | 


E8 


ZP2 


INX 










F5D5 | 


86 19 




STX 


nrnnn t 

r lKtli 








F5D7| 


8A 




TXA 










F5D8I 


Dl 18 




CMP 


fPTRT.Ol Y 








F5DA| 


D006 




BNE 


ZP3 








F5DC| 


E0 IF 




CPX 


#1F 








F5DEI 


D0F4 




BNE 


ZP2 








F5E0| 


F005 




BEQ 


ROMTST 








F5E2I 


F5E2 


ZP3 


.EQU 


* 


; CHIP IS THERE, BAD ZERO 


AND 


STACK 


F5E2I 


A2 1A 




LDX 


#1A 


; SO PRINT ' ZP ' MESSAGE 






F5E4 | 
F5E7| 


20 7BF7 




JSR 


MESSERR 


; & SET FLAG (2MHZ MODE) 






F5E7| 




■ POM TPCT 


KUU1 IN Hi 










F5E7| 
















F5E7| 


A9 00 


ROMTST 


LDA 


#00 


• CVT POTWT'FP C TC\ 
t OCjI rUl INI JiiKo 1U 






F5E9| 


A8 




TAY 




• $F000 






F5EAI 


A2 F0 




LDX 


#0F0 






F5ECI 


85 18 




STA 


PTRLO 








F5EE| 


86 19 




STX 


PTRHI 


; SET X TO $FF 






F5F0I 


A2 FF 




LDX 


#0FF 


; FOR WINDOWING I/O 






F5F2I 


51 18 


ROMTST1 


EOR 


(PTRLO) , Y 


• pomptttf r*HTf«;nM on 






F5F4I 


E4 19 




CPX 


PTRH I 


• FAPH POM RYTF 






F5F6| 


D006 




BNE 


Old 








F5F8| 


C0 BF 




CPY 


#0BF 


t KAJNIjXjo r r LjO~r r ijr 






F5FAI 


D002 




BNE 


ROMTQT9 
KUIY11 ol£ 








F5FC| 


A0 EF 




LDY 


#0EF 








F5FE| 


C8 


ROMTST2 


INY 










F5FF| 


D0F1 




BNE 


ROMTST 1 








F601I 


E6 19 




INC 


PTRHI 








F603| 


D0ED 




BNE 


ROMTST 1 








F605| 


A8 




TAY 




; TEST ACC. FOR 






F606| 


F005 




BEQ 


VIATST 


; YES, NEXT TEST 






F608I 


A2 03 




LDX 


#03 


; PRINT 'ROM* AND 






F60AI 


20 7BF7 




JSR 


MESSERR 


; SET ERROR 






F60D| 
















F60D| 




; VIA TEST 


ROUTINE 










F60DI 
















F60DI 


18 


VIATST 


CLC 




; SET UP FOR ADDING BYTES 






F60E| 


D8 




CLD 










F60F| 


AD E0FF 




LDA 


SYSE0 


; MASK OFF INPUT BITS 






F612I 


2 9 3F 




AND 


#3F 


; AND STORE BYTE IN 






F614I 


85 18 




STA 


PTRLO 


; TEMPOR. LOCATION 






F616| 


AD EFFF 




LDA 


BNKSW 


; MASK OFF INPUT BITS 






F619| 


2 9 4F 




AND 


#4F 


; AND ADD TO STORED 






F61B| 


65 18 




ADC 


PTRLO 


; BYTE IN TEMP. LOC. 






F61D| 


6D D0FF 




ADC 


ZPREG 


; ADD REMAINING 






F620| 


85 18 




STA 


PTRLO 


; REGISTERS OF THE 






F622I 


AD DFFF 




LDA 


SYSD1 


; VIA'S 






F625I 


29 5F 




AND 


#5F 


; (MASK THIS ONE) 






F627I 


65 18 




ADC 


PTRLO 


; AND TEST 
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F629 

F62C 

F62F 

F632 

F635 

F637 

F639 

F63B 

F63E 

F63E 

F63E 

F63E 

F63F 

F641 

F644 

F647 

F64A 

F64C 

F64E 

F650 

F653 

F653 

F653 

F653 

F655 

F658 

F65B 

F65E 

F661 

F663 

F664 

F666 

F669 

F66A 

F66C 

F66F 

F671 

F672 

F674 

F676 

F676 

F678 

F67B 

F67B i 

F67B! 

F67BI 

F67E 

F67F 

F681 

F684 

F686 

F686 

F686 

F686 

F688 

F68B 

F68E 

F691 

F694 

F697 

F699 

F69C 

F69E 

F6A1 

F6A3 

F6A5 

F6A6 

F6A8 

F6AA 

F6AC 

F6AD 

F6AF 

F6B0 

F6B3 

F6B5 

F6B7 

F6BA 

F6BD 

F6BF 

F6C2 

F6C2; 

F6C2I 

F6C2I 

F6C4 | 

F6C5I 

F6C7 

F6C9 

F6CB 

F6CE 

F6CF 



6D D2FF 


ADC 


SYSD2 


6D D3FF 


ADC 


SYSD3 


6D E2FF 


ADC 


SYSE2 


6D E3FF 


ADC 


SYSE3 


C9 El 


CMP 


#0E0+ROM 


F005 


BEQ 


AC I A 


A2 06 


LDX 


#06 


20 7BF7 


JSR 


MESSERR 



18 

A9 9F 
2D F1C0 
6D F2C0 
6D F3C0 
C9 10 
F005 
A2 09 
20 7BF7 



A9 C0 
8D DCFF 
AD 5AC0 
AD 5EC0 
AD 5CC0 
A0 20 
88 

D0FD 
AD 5DC0 
C8 

F00A 
AD 66C0 
30F8 
98 

2 9 E0 
F005 
F676 
A2 0D 
20 7BF7 



AD 08C0 
0A 
1041 
AD DFFF 
303C 



A9 77 
8D DFFF 
20 98FD 
2C 10C0 
AD FFCF 
AD 20C0 
A9 10 
2D 08C0 
D003 
20 01F9 
A2 01 
86 87 
CA 

86 85 
A9 A0 
85 86 
4A 

85 91 
8A 

20 79F4 
9 00 A 
A2 1C 
20 38F7 
20 0FFD 
B0E2 
4C 00A0 



A0 7F 
98 

2 9 FE 
4 9 4E 
F003 
B9 00C0 
88 

D0F3 



TO SEE 

IF THEY AGREE 
WITH THE RESET 
CONDITION. 
=E1? 

YES, NEXT TEST 

NO, PRINT 'VIA' MESS 

AND SET ERROR FLAG 



ACIA TEST 



ACIA 


CLC 






SET UP FOR ADDITION 




LDA 


#9F 




MASK INPUT BITS 




AND 


AC I AST 




FROM STATUS REG 




ADC 


AC I ACM 




AND ADD DEFAULT STATES 




ADC 


ACIACN 




OIF CONTROL AND COMMAND 




CMP 


#10 




REGS. =10? 




BEQ 


ATD 




YES, NEXT TEST 




LDX 


#09 




NO, 'ACIA' MESSAGE AND 




JSR 


MESSERR 




THEN SET ERROR FLAG 


• A/D TEST 


ROUTINE 






A1U 


LDA 


#0C0 








STA 


0FFDC 








LDA 


PDLEN+2 








LDA 


PDLEN+6 








LDA 


PDLEN+4 








LDY 


#20 






ADCTST1 


DEY 




; 


WAIT FOR 40 USEC 




BNE 


ADCTST1 








LDA 


PDLEN+5 


r 


SET A/D RAMP 


ADCTST3 


INY 






COUNT FOR CONVERSION 




BEQ 


ADCERR 








LDA 


AD TO 




IF BIT 7=1? 




BMI 


ADCTST3 




YES, CONTINUE 




TYA 






NO, MOVE COUNT TO ACC 




AND 


#0E0 




ACC<32 




BEQ 


KEYPLUG 






ADCERR 


.EQU 


* 


r 


NO, 




LDX 


#0D 


t 


PRINT 'A/D* MESS 




JSR 


MESSERR 


r 


AND SET ERROR FLAG 


; KEYBOARD 


PLUGIN 


TEST 






KEYPLUG 


LDA 


KEYBD 


[ 


IS KYBD PLUGGED IN? 




ASL 


A 




(IS LIGHT CURRENT 




BPL 


SEX 




PRESENT?) NO, BRANCH 




LDA 


SYSD1 




IS ERROR FLAG SET? 




BMI 


SEX 




ERROR HANG 


; RECONFIGURE THE 


SYSTEM 






RECON 


LDA 


#77 




TURN ON SCREEN 




STA 


SYSD1 








JSR 


CLDSTRT 


. 


INITIALIZE MONITOR AND DEFAULT 




BIT 


KBDSTRB 


r 


CLEAR KEYBOARD 




LDA 


EXPROM 




DISABLE ALL SLOTS 




LDA 


0C020 








LDA 


#10 




TEST FOR "APPLE 1" 




AND 


KEYBD 








BNE 


BOOT 




NO, DO REGULAR BOOT 




JSR 


MONITOR 


* 


AND NhiVhR COME BACK 


BOOT 


LDX 


#01 




READ BLOCK 




STX 


IBCMD 








DEX 










STX 


IBBUFP 


i 


INTO RAM AT $A000 




LDA 


#0A0 








STA 


IBBUFP+1 








LSR 


A 




FOR TRACK 80 




STA 


PREVTRK 




MAKE IT RECALIBRATE TOO! 




TXA 










JSR 


BLOCKIO 








BCC 


GOBOOT 




IF WE'VE SUCCEEDED. DO IT UP 




LDX 


#1C 








JSR 


STRWT 




' RETRY ' 




JSR 


KEYIN 








BCS 


BOOT 






GOBOOT 


JMP 


0A000 




GO TO IT FOOL. . . 


; SYSTEM EXCERCISER 






SEX 


LDY 


#7F 




TRY FROM 


SEX1 


TYA 






$7F TO 




AND 


#0FE 




ADD .= 




EOR 


#4E 




$4E OR $4F 




BEQ 


SEX2 




YES, SKP 




LDA 


KYBD, Y 




NO, CONT 


SEX2 


DEY 






NEXT ADD 




BNE 


SEX1 
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F6D1 1 
F6D4| 
F6D7 | 
F6DA| 
F6DD | 
F6E0| 
F6E3| 
F6E4 | 
F6E6I 
F6E6| 
F6E6| 
F6E6| 
F6E8| 
F6EBI 
F6ED | 
F6F0| 
F6F2 | 
6F4 | 
6F6 | 



6F7 
F6F9| 
F6FC | 
F6FDI 
F700| 
F703| 
F704 | 
F705I 
F706| 
F709I 
F70B| 
F70E| 
F70F| 
F712| 
F713I 
F715| 
F717 | 
F718| 
F719| 
F71A| 
F71BI 
F71EI 
F720| 
F720I 
F720I 
F720| 
F722I 
F725| 
F728| 
F72AI 
F72DI 
F72F| 
F730| 
F732| 
F735I 
F738| 
F738I 
F738| 
F738| 
F738| 
F738| 
F73B| 
F73CI 
F73EI 
F741| 
F742I 
F743| 
F745| 
F748I 
F748| 
F748I 
F748| 
F749| 
F74A| 
F74B| 
F74CI 
F74D| 
F74E| 
F74FI 
F750| 
F751I 
F1S2{ 
F7551 
F757| 
F758I 
F75B| 
F75D| 
F75EI 
F75FI 
F761I 
yF763| 



AD 51 C0 
B9 00C1 
B9 00C2 
B9 00C3 
B9 00C4 
AD FFCF 
C8 

D0EE 



A9 73 
8D DFFF 
A9 18 
8D D0FF 
A9 00 
A2 07 
95 10 
CA 
10FB 
20 84F7 
08 

20 F6F7 

20 F6F7 

28 

6A 

08 

20 A1F7 
D0F2 
20 84F7 
08 

20 FAF7 
48 

A9 00 

91 18 

68 

28 

6A 

08 

20 A1F7 
D0EF 



A9 00 
8D EFFF 
8D D0FF 
A2 07 
BD 1018 
95 10 
CA 
10F8 
20 7EF7 
4C 75F5 



BD CDF4 
48 

09 80 
20 25FC 
E8 
68 

10F3 
4C 07FD 



48 
8A 
4A 
4A 
4A 
4A 
08 
4A 
28 
AA 

BD C5F4 
1014 
48 

AD EFFF 
2 9 0F 
AA 
68 

E0 00 

F013 

4A 



SEX 3 



USRENTRY 



RAMTST0 



RAMTST1 



RAMTST4 



LDA 


TXTMD 


LDA 


SLT1 , Y 


LDA 


SLT2, Y 


LDA 


SLT3, Y 


LDA 


SLT4 , Y 


LDA 


EXPROM 


INY 




BNE 


SEX3 


ROUTINE 




LDA 


172+ROM 


STA 


SYSD1 


LDA 


#18 


STA 


ZPREG 


LDA 


#00 


LDX 


#07 


STA 


ZRPGl r X 


DEX 




BPL 


RAMTST0 


JSR 


RAMSET 


PHP 




JSR 


RAMWT 


JSR 


RAMWT 


PLP 




ROR 


A 


PHP 




JSR 


PTRINC 


BNE 


RAMTST1 


JSR 


RAMSET 


PHP 




JSR 


RAMRD 


PHA 




LDA 


#00 


STA 


(PTRLO) , Y 


PLA 




PLP 




ROR 


A 


PHP 




JSR 


PTRINC 


BNE 


RAMTST4 


D START 




LDA 


#00 


STA 


BNKSW 


STA 


ZPREG 


LDX 


#07 


LDA 


PHPR,X 


STA 


ZRPG1,X 


DEX 




BPL 


RAMTST6 


JSR 


ERROR 


JMP 


ERRLP 



SET TXT 
EXCERCISE 
ALL 
SLOTS 

DISABLE EXPANSION ROM AREA 



RAMTST6 



****************************** 

SARA TEST SUBROUTINES 
****************************** 



STRWT LDA 
PHA 
ORA 
JSR 
I NX 
PLA 
BPL 
JMP 

SUBROUTINE RAM 



RAM 



PHA 
TXA 
LSR 
LSR 
LSR 
LSR 
PHP 
LSR 
PLP 
TAX 

BPL 
PHA 
LDA 
AND 
TAX 
PLA 
CPX 
BEQ 
LSR 



CHPG,X 



#80 
COUT 



STRWT 
CROUT1 



RAM0 



BNKSW 
#0F 



#00 

RAMI 

A 



NORMAL VIDEO 
& PRINT 
NXT 
CHR 

CLR TO END OF LINE 



SV ACC 
CONVRT 
ADD TO 
USE FOR 
8 ENTRY 



LOOKUP 
IT 

<0, GET 
WHICH 



BANK? 
SET 



l Source: David T. Craig 
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F764 | 


4A 




T QD 


A 






F765| 


4A 




LSR 


A 


; RAM 




F766| 


CA 








; VAL 




F767 | 


D00D 






RAMI 






F769| 


2 9 05 




AND 




; CONVERT 




F76B | 


D009 


RAM0 


BNE 


RAMI 


; TO VAL 




F76D| 


8A 




TXA 








F76E| 


F002 




BEQ 








F770| 


A9 03 




LDA 








F772 | 


9002 


RAM00 


BCC 


RAMI 






F774 | 


4 9 03 




EOR 


#03 






F776 | 


2 9 07 


RAMI 


AND 


#07 


; BANKSW 




F778 | 


AA 




TAX 








F779| 


68 




PLA 








F77A| 


60 




RTS 








F77B| 














F77B| 




; SUBROUTINE ERROR 








F77B| 














F77B| 


20 38F7 


MESSERR 


JSR 


STRWT 


; PRINT MESSAGE FIRST 




F77E| 


A9 F3 


ERROR 


LDA 


#0F2+ROM 


; SET 1 




F780| 


8D DFFF 




STA 


SYSD1 


; MHZ MO 




F783| 


60 




RTS 








F784 | 














F784 | 




; SUBROUTINE RAMSET 






F784 | 














F784 | 


A2 01 


RAMSET 


LDX 


#01 






F786 | 


8 6 1A 




STX 


BNK 






F788 | 


A0 00 




LDY 


#00 






F78A| 


A9 AA 




LDA 


#0AA 






F78C| 


38 




SEC 






F78D| 


48 


RAMSET1 


PHA 








F78E| 


08 




PHP 








F78F | 


A5 1A 




LDA 


BNK 






F791 1 


09 80 




ORA 


#80 






F793| 


8D 1914 




STA 


I BNK 






F796 | 


A9 02 




LDA 


#02 






F798| 


85 19 




STA 


PTRHI 






F79A| 


A2 00 




LDX 


#00 






F79C| 


86 18 




STX 


PTRLO 






F79E| 


28 




PLP 








F79F| 


68 




PLA 








F7A0| 


60 




RTS 








F7A1 1 














F7A1 1 




; SUBROUTINE PTRINC 






F7A1 1 














F7A1 1 


48 


PTRINC 


PHA 








F7A2 | 


E6 18 




INC 


PTRLO 






F7A4 | 


D01D 




BNE 


RETS 






F7A6| 


A5 1A 




LDA 


BNK 






F7A8| 


100E 




BPL 


PINC1 






F7AA| 


A5 19 




LDA 


PTRHI 






F7AC| 


C9 13 




CMP 


#13 






F7AE| 


F006 




BEQ 


PINC2 






F7B0| 


C9 17 




CMP 


#17 






F7B2 | 


D004 




BNE 


PINC1 






F7B4 | 


E6 19 




INC 


PTRHI 






F7B6 | 


E6 19 


PINC2 


INC 


PTRHI 






F7B8| 


E6 19 


PINC1 


INC 


PTRHI 






F7BA| 


D007 




BNE 


RETS 






F7BCI 


C6 1A 




DEC 


BNK 






F7BE| 


C6 1A 




DEC 


BNK 






F7C0| 


20 8DF7 




JSR 


RAMSET 1 






F7C3I 


68 


RETS 


PLA 








F7C4 | 


A6 1A 




LDX 


BNK 






F7C6| 


E0 FD 




CPX 


#0FD 






F7C8| 


60 




RTS 








F7C9J 














F7C9| 




; SUBROUTINE RAMERR 






F7C9 | 














F7C9| 


48 


RAMERR 


PHA 








F7CA| 


A6 19 




LDX 


PTRHI 






F7CC| 


A4 1A 




LDY 


BNK 






F7CE| 


3019 




BMI 


RAMERR4 






F7D0| 


8A 




TXA 








F7D1 1 


301D 




BMI 


RAMERR 5 






F7D3| 


18 




CLC 








F7D4 | 


69 20 




ADC 


#20 






F7D6| 


8C EFFF 


RAMERR2 


STY 


BNKSW 






F7D9 1 


AA 




TAX 








F7DA| 


20 48F7 


RAMERR3 


JSR 


RAM 






F7DDI 


68 




PLA 








F7DEI 


48 




PHA 








F7DF| 


A0 00 




LDY 


#00 






F7E1I 


51 18 




EOR 


(PTRLO) , Y 






F7E3| 


15 10 




ORA 


ZRPG1, X 






F7E5I 


95 10 




STA 


ZRPG1, X 






F7E7| 


68 




PLA 








F7E8| 


60 




RTS 








F7E9| 


A9 00 


RAMERR4 


LDA 


#00 






F7EB | 


8D EFFF 




STA 


BNKSW 
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F7EEI F0EA 

F7F0| 38 

F7F1I E9 60 

F7F3| C8 

F7F4| D0E0 
F7F6| 
F7F6I 
F7F6| 

F7F6| 4 9 FF 

F7F8| 91 18 

F7FA| Dl 18 

F7FC | D0CB 

F7FE | 60 
F7FFI 
F7FF | 





BEQ 


RAMERR3 


RAMERR5 


SEC 






SBC 


#60 




INY 






BNE 


RAMERR2 


; SUBROUTINE RAMWT 




RAMWT 


EOR 


#0FF 




STA 


(PTRLO) , Y 


RAMRD 


CMP 


(PTRLO) , Y 




BNE 


RAMERR 


RET1 


RTS 






.END 





SYMBOL TABLE DUMP 



AB - Absolute LB - Label UD - Undefined 

RF - Ref DF - Def PR - Proc 

PB - Public PV - Private CS - Consts 



ACIA 


LB 


F63E | 


ACIACM 


AB 


C0F2 | 


ACIACN 


ADCTST1 


LB 


F663 | 


ADCTST3 


LB 


F669 | 


ADRS 


BLOCK 10 


AB 


F479 | 


BNK 


AB 


001A | 


BNKSW 


CLDSTRT 


AB 


FD98 | 


CNTWR 


LB 


F532 | 


COUT 


DISK1 


LB 


F513 | 


DISKOFF 


AB 


C0D0 | 


ERRLP 


EXPROM 


AB 


CFFF | 


GOBOOT 


LB 


F6BF | 


GRMD 


IBNK 


AB 


1419 | 


KBDSTRB 


AB 


C010 | 


KEYBD 


KYBD 


AB 


C000 | 


MESSERR 


LB 


F77B | 


MONITOR 


NOGOOD 


LB 


F52A | 


NOMEM 


LB 


F548 | 


NXBIT 


PHPR 


AB 


1810 | 


PINC1 


LB 


F7B8 | 


PINC2 


PTRINC 


LB 


F7A1 | 


PTRLO 


AB 


0018 | 


PULBT 


RAM00 


LB 


F772 | 


RAMI 


LB 


F77 6 | 


RAMERR 


RAMERR4 


LB 


F7E9 | 


RAMERR5 


LB 


F7F0 | 


RAMRD 


RAMTBL 


LB 


F4C5 | 


RAMTST0 


LB 


F6F4 | 


RAMTST1 


RAMWT 


LB 


F7F6 | 


RAMWT 1 


LB 


F5A1 | 


RAMWT 2 


RET1 


LB 


F7FE | 


RETS 


LB 


F7C3 | 


ROM 


ROMTST2 


LB 


F5FE | 


SARATEST 


PR 




SETCVH 


SEX1 


LB 


F6C4 | 


SEX2 


LB 


F6CE | 


SEX 3 


SLT3 


AB 


C300 | 


SLT4 


AB 


C400 | 


STK0 


SYSD2 


AB 


FFD2 | 


SYSD3 


AB 


FFD3 | 


SYSE0 


TXTMD 


AB 


C051 | 


USRENTRY 


LB 


F6E6 | 


VIATST 


ZP3 


LB 


F5E2 | 


ZPREG 


AB 


FFD0 | 


ZRPG 


Assembly 


complete: 


545 


lines 





Errors flagged on this Assembly 





MC - 


Macro 














FC - 


Func 












AB 


C0F3 


I ACIAST 


AB 


C0F1 | 


ADCERR 


LB 


F676 


AB 


C04 7 


I ADTO 


AB 


C066 | 


ATD 


LB 


F653 


AB 


FFEF 


I BOOT 


LB 


F6A1 | 


CHPG 


LB 


F4CD 


AB 


FC25 


I CROUT1 


AB 


FD07 | 


CV 


AB 


005 D 


LB 


F575 


I ERRLP 1 


LB 


F593 | 


ERROR 


LB 


F77E 


AB 


C050 


1 IBBUFP 


AB 


0085 | 


IBCMD 


AB 


0087 


AB 


C008 


I KEY IN 


AB 


FD0F | 


KEYPLUG 


LB 


F67B 


AB 


F901 


I NMEM1 


LB 


F54F | 


NMEM2 


LB 


F562 


LB 


F52 6 


I NXBYT 


LB 


F524 | 


PDLEN 


AB 


C058 


LB 


F7B6 


I PREVTRK 


AB 


0091 | 


PTRHI 


AB 


0019 


LB 


F53A 


I RAM 


LB 


F748 | 


RAM0 


LB 


F76B 


LB 


F7C9 


I RAMERR2 


LB 


F7D6 | 


RAMERR3 


LB 


F7DA 


LB 


F7FA 


I RAMSET 


LB 


F784 | 


RAMSET1 


LB 


F78D 


LB 


F6FD 


I RAMTST4 


LB 


F70F | 


RAMTST6 


LB 


F72A 


LB 


F5A5 


I RAMWT 4 


LB 


F5AD | 


RECON 


LB 


F686 


AB 


0001 


I ROMTST 


LB 


F5E7 | 


ROMTST 1 


LB 


F5F2 


AB 


FBC7 


I SETUP 


AB 


FD9D | 


SEX 


LB 


F6C2 


LB 


F6D4 


I SLT1 


AB 


C100 | 


SLT2 


AB 


C200 


AB 


00FF 


I STRWT 


LB 


F738 | 


SYSD1 


AB 


FFDF 


AB 


FFE0 


I SYSE2 


AB 


FFE2 | 


SYSE3 


AB 


FFE3 


LB 


F60D 


I ZP1 


LB 


F5BE | 


ZP2 


LB 


F5D4 


AB 


0000 


I ZRPG1 


AB 


0010 | 









6502 OPCODE STATIC FREQUENCIES 



ADC 


: 10 




********** 


AND 


: 12 




************ 


ASL 


: 3 




* * * 


BCC 


: 3 




* * * 


BCS 


1 


m 


* 


BEQ 


12 




************ 


BIT 


1 


m 


* 


BMI 


4 




** ** 


BNE 


31 




******************************* 


BPL 


9 




********* 


CLC 


3 




* * * 


CLD 


1 


m 


* 


CMP 


10 




********** 


CPX 


5 




***** 


CPY 


2 




* * 


DEC 


3 




* * * 


DEX 


9 




********* 


DEY 


5 




***** 


EOR 


5 




***** 


INC 


6 




****** 


I NX 


6 




****** 


INY 


6 




****** 


JMP 


4 




**★* 


JSR 


29 




***************************** 


LDA : 


56 




******************************************************** 


LDX : 


24 




************************ 


LDY : 


10 




********** 


LSR : 


9 




********* 


ORA : 


3 




* * * 


PHA : 


11 




*********** 


PHP : 


6 




****** 


PLA : 


12 




************ 


PLP : 


4 




** ** 


ROR : 


2 




* * 


RTS : 


6 




****** 


SBC : 


1 


m 


* 
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SEC 


2 


** 


STA 


30 


****************************** 


STX 


18 


****************** 


STY 


4 


** ** 


TAX 


4 


**** 


TAY 


2 


* * 


TXA 


6 


****** 


TXS 


2 


* * 


TYA 


4 


**** 



Minimum frequency = 
Maximum frequency = 



Average frequency = 8 
Unused opcodes: 
BRK BVC BVS CLI CLV NOP 
Program opcode usage: 80 % 



ROL RTI SED SEI TSX 



(1.00) That's all, Folks ... 



l Source: David T. Craig 
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HD: Apple ///:ROM - Monitor 


Page 1 


0000 | 






01010505 1 
J0I0J0I0 1 


APPLE 


/// ROM - 


- MONITOR 




yCJVJYJxJ | 


;• COPYRIGHT 1979 


BY APPLE COMPUTER. INC. 




01050(01 1 
xJkJkJxJ 1 

01010(01 1 






0000 1 




.ABSOLUTE 




0000 1 




.PROC 


MONITOR 




0(010101 1 




.ORG 


0F7FE 




F7FE 1 


r 








plop I 

£ /£ hi 1 


r 








F7PP I C0( 
£ /£ hi | 050 


RET1 


RTS 






T7" TTPC 1 OTP 

Nti | j£ 




.BYTE 


03F 




PQOIOll TP a /"XI 

£ 000 1 hi y 01 




SBC 


#01 




r 00^ 1 £ 0£ A 




BEQ 


RET1 




VfW\A 1 TP Q All 

£ O0fi I hi y 01 




SBC 


#01 




£ 00 o | r 0r 




BEQ 


RET1 




IT QOIQ 1 TP Q /TX1 

r 000 | hi y 01 




SBC 


#01 




£ O0A | r 0r ^ 




BEQ 


RET1 




ppflir' 1 ip q on 
£ O0v~ | hi y 01 




SBC 


#01 




FR01F 1 P01PP 

c oi0hj | r 0hihi 




BEQ 


RET1 




P ft 1 01 1 T? □ Oil 

r 010 1 h>y 01 




SBC 


#01 




r oit 1 £ 0h A 




BEQ 


RET1 




PP1 4| DQ Oil 

r oil | h y 01 




SBC 


#01 




Ffti a i potf £ 
r o i o | r I0hj o 




BEQ 


RET1 




Ffti ft 1 F Q 011 

r Olu 1 £j 7 JO J. 




SBC 


#01 




Ffti A 1 F0TP9 
r o i /i l r 0hi £. 




BEQ 


RET1 




Ffti P 1 l? Q 0(1 




SBC 


#01 




r Olhi 1 £ 0Uh< 




BEQ 


RET1 




FR90I 1 P Q 011 
£ 0£.yO \ £iJ 01 




SBC 


#01 




PP99 I coin a 
£ | r 0DA 




BEQ 


RET1 




POO / | TP Q /TIT 

£ oc H 1 h y 01 




SBC 


#01 




roji i poinc 
t Ot o | r 0U o 




BEQ 


RET1 




pftO p | po oil 
£ OC i h y 01 




SBC 


#01 




POTA 1 P05H9 
£ o^A | £ \0iJ£. 




BEQ 


RET1 




roop i xp q oil 
£ o^u i tiS 01 




SBC 


#01 




Fft9F i Troifp 

£ OZh 1 £ 0V,hi 




BEQ 


RET1 




FftT05l FQ 0(1 
r ooxj | £j 7 joi 




SBC 


#01 




r OOi | £ 0v^A 




BEQ 


RET1 




FR14 1 PQ 051 
£ O JH I L7 01 




SBC 


#01 




FR"? 1 P0ir*fi 

f O J | £ J01„ O 




BEQ 


RET1 




Pft "3 P 1 tp Q oil 

£ o j o | hi y 01 




SBC 


#01 




£ OA | £ Yj\*c. 




BEQ 


RET1 




Pft^P 1 P Q 011 

£ ojc i hi y 01 




SBC 


#01 




Pft "5P i pomp 

£ OJIj | £ 0£>hi 




BEQ 


RET1 




Fft405 1 P Q 011 
r oiio i £j? jo j. 




SBC 


#01 




Fft4 l posh a 

£ O t C 1 £ JOB A 




BEQ 


RET1 




FR4 4 1 P Q 011 

f Oil | £j J JOJ. 




SBC 


#01 




FR4 1 F05T5. £ 

t OlD | £ SO£J O 




BEQ 


RET1 




FR4 ft 1 P Q 011 




SBC 


#01 




FR4 A 1 F0TR9 




BEQ 


RET1 




F84PI PQ 051 

L U i L | ill 17 JO X 




SBC 


#01 




FR4F 1 F01AF 
£ O H £j 1 £ JOAhi 




BEQ 


RET1 




PflROJI P Q 051 
r OJK/| £j !7 JOJ. 




SBC 


#01 




FRR9 1 F05AA 
C OJ£ | £ 50 AA 




BEQ 


RET1 




FRRd 1 P Q 051 
r oji | £j j joj. 




SBC 


#01 




PRRfil P0IA 
t OJO| £ lOri O 




BEQ 


RET1 




F858I E9 01 




SBC 


#01 




PftSA 1 P05A9 




BEQ 


RET1 




PftRPI PQ 051 




SBC 


#01 




PRRP 1 P05QP 




BEQ 


RET1 




Pftfi0JI PQ 011 




SBC 


#01 








BEQ 


RET1 




FR64 t F Q 011 




SBC 


#01 








BEQ 


RET1 




FRfiR 1 PQ 051 




SBC 


#01 




PRfiA 1 P01Q9 
r o \jt\ I £ JOS c. 




BEQ 


RET1 




PRfiPl PQ 011 
r o ov^ | cj joj. 




SBC 


#01 




PR ftp 1 P0IRP 
r O 0£j | £ 0Ohj 




BEQ 


RET1 




PRT05 1 P Q 011 
£ / 50 | hi y 01 




SBC 


#01 




Pftl 9 l poifta 
£ O / £. 1 £ 0OA 




BEQ 


RET1 




Fft"7 4 1 P Q 011 
£ O / H | h.y 01 




SBC 


#01 




Pft 7 (\ 1 POIft £ 
£ / 1 £ 00 




BEQ 


RET1 




PR7 R 1 P Q 011 
r o / o | li j jo J. 




SBC 


#01 




FR7AI F01ft9 

i O (n| £ IOO £. 




BEQ 


RET1 




FR7ri PQ 011 




SBC 


#01 




F87EI F002 




BEQ 


RET3 




FRR01I PQ 051 




SBC 


#01 




FRR9 i Fonr* 


RET 3 


BEQ 


RET2 




FRR4 1 FQ 011 

i- OOI | Hi 7 IC/ X. 




SBC 


#01 




F886I F07S 




BEQ 


RET2 




F888I E9 01 




SBC 


#01 




PQP A 1 P017 A 
£ 00A 1 £ / ^ 




BEQ 


RET2 




F88C| E9 01 




SBC 


#01 




F88EI F070 




BEQ 


RET2 




F890| E9 01 




SBC 


#01 




F892| F06C 




BEQ 


RET2 




F894| E9 01 




SBC 


#01 




F896| F068 




BEQ 


RET2 




F898| E9 01 




SBC 


#01 




F89AI F064 




BEQ 


RET2 


j 
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F89C| 


E9 01 




SBC 


#01 


F89E| 


F060 




BEQ 


RET2 


F8A0| 


E9 01 




SBC 


#01 


F8A2 | 


F05C 




BEQ 


RET2 


F8A4 | 


E9 01 




SBC 


#01 


F8A6| 


F058 




BEQ 


RET2 


F8A8| 


E9 01 




SBC 


#01 


F8AA| 


F054 




BEQ 


RET2 


F8AC| 


E9 01 




SBC 


#01 


F8AE| 


F050 




BEQ 


RET2 


F8B0| 


E9 01 




SBC 


#01 


F8B2 | 


F04C 




BEQ 


RET2 


F8B4I 


E9 01 




SBC 


#01 


F8B6| 


F04 8 




BEQ 


RET2 


F8B8I 


E9 01 




SBC 


#01 


F8BA| 


F044 




BEQ 


RET2 


F8BCI 


E9 01 




SBC 


#01 


F8BE | 


F040 




BEQ 


RET2 


F8C0I 


E9 01 




SBC 


#01 


F8C2| 


F03C 




BEQ 


RET2 


F8C4 | 


E9 01 




SBC 


#01 


F8C6| 


F038 




BEQ 


RET2 


F8C8 | 


E9 01 




SBC 


#01 


F8CA| 


F034 




BEQ 


RET2 


F8CC | 


E9 01 




SBC 


#01 


F8CE| 


F030 




BEQ 


RET2 


F8D0| 


E9 01 




SBC 


#01 


F8D2| 


F02C 




BEQ 


RET2 


F8D4 | 


E9 01 




SBC 


#01 


F8D6| 


F028 




BEQ 


RET2 


F8D8 | 


E9 01 




SBC 


#01 


F8DA| 


F024 




BEQ 


RET2 


F8DC | 


E9 01 




SBC 


#01 


F8DE | 


F020 




BEQ 


RET2 


F8E0| 


E9 01 




SBC 


#01 


F8E2I 


F01C 




BEQ 


RET2 


F8E4 | 


E9 01 




SBC 


#01 


F8E6| 


F018 




BEQ 


RET2 


F8E8| 


E9 01 




SBC 


#01 


F8EA| 


F014 




BEQ 


RET2 


F8EC| 


E9 01 




SBC 


#01 


F8EE| 


F010 




BEQ 


RET2 


F8F0| 


E9 01 




SBC 


#01 


F8F2I 


F00C 




BEQ 


RET2 


F8F4 | 


E9 01 




SBC 


#01 


F8F6 | 


F008 




BEQ 


RET2 


F8F8 | 


E9 01 




SBC 


#01 


F8FA| 


F004 




BEQ 


RET2 


F8FC | 


E9 01 




SBC 


#01 


F8FE | 


F000 




BEQ 


RET2 


F900| 


60 


RET 2 


RTS 




F901 | 










F901 1 




; 






F901 1 


0058 


SCRNLOC 


.EQU 


58 


F901 1 




; 




F901 1 


0058 


LMARGIN 


.EQU 


SCRNLOC 


F901 1 


0059 


RMARGIN 


.EQU 


SCRNLOC+1 


F901 1 


00 5 A 


WINTOP 


.EQU 


SCRNLOC+2 


F901 1 


005B 


WINBTM 


.EQU 


SCRNLOC+3 


F901 1 


005C 


CH 


.EQU 


SCRNLOC+4 


F901 j 


005 D 


CV 


.EQU 


SCRNLOC+5 


F901 1 


005 E 


BAS4L 


.EQU 


SCRNLOC+6 


F901 1 


005F 


BAS4H 


.EQU 


SCRNLOC+7 


F901 1 


0060 


BAS8L 


.EQU 


SCRNLOC+8 


F901 1 


0061 


BAS8H 


.EQU 


SCRNLOC+9 


F901 1 


0058 


TBAS4L 


.EQU 


SCRNLOC+A 


F901 1 


0063 


TBAS4H 


.EQU 


SCRNLOC+0B 


F901 1 


0064 


TBAS8L 


.EQU 


SCRNLOC+0C 


F901 1 


0065 


TBAS8H 


.EQU 


SCRNLOC+0D 


F901 1 


006 6 


FORGND 


.EQU 


SCRNLOC+0E 


F901 1 


0067 


BKGND 


.EQU 


SCRNLOC+0F 


F901 1 


0068 


MODES 


.EQU 


SCRNLOC+10 


F901 1 


0069 


CURSOR 


.EQU 


SCRNLOC+11 


F901 1 


006A 


STACK 


.EQU 


SCRNLOC+1 2 


F901 j 


006B 


PROMPT 


.EQU 


SCRNLOC+1 3 


F901 j 


006C 


TEMPX 


• EQU 


SCRNLOC+1 4 


F901 1 


006D 


TEMPY 


.EQU 


SCRNLOC+1 5 


F901 1 


006E 


CSWL 


.EQU 


SCRNLOC+1 6 


F901 1 


00 6F 


CSWH 


.EQU 


SCRNLOC+1 7 


F901 1 


0070 


KSWL 


.EQU 


SCRNLOC+1 8 


F901 1 


0071 


KSWH 


.EQU 


SCRNLOC+1 9 


F901 1 


0072 


PCL 


.EQU 


SCRNLOC+1 A 


F901 1 


0073 


PCH 


.EQU 


SCRNLOC+1B 


F901 1 


0074 


AIL 


.EQU 


SCRNLOC+1 C 


F901| 


0075 


A1H 


.EQU 


A1L+1 


F901 1 


007 6 


A2L 


.EQU 


A1L+2 


F901 1 


0077 


A2H 


.EQU 


A1L+3 


F901| 


0078 


A3L 


.EQU 


A1L+4 


F901 1 


007 9 


A3H 


.EQU 


A1L+5 


k F901 | 


007A 


A4L 


.EQU 


A1L+6 

J 
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F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F901 

F902 

F904 

F905 

F908 

F90A 

F90B 

F90D 

F90F 

F912 

F915 

F918 

F91A 

F91C 

F91D 

F91F 

F922 

F924 

F927 

F929 

F92C 

F92C 

F92E 

F930 

F932 

F934 | 

F935[ 

F937 

F939 

F93B 

F93D 

F93F 

F941 

F943 

F944 

F945 

F946 

F947 

F948 

F94A 

F94C 

F94D 

F94F 

F951 

F953 

F955 

F957 

F959 

F95A 

F95C 

F95E 

F95E 

F95E 

F95E 

F960 

F961 

F964 

F965 

F967| 

F969 

F96B 

F96C 

F96C 

F96D 

F96E 

F96F 

F970 

F971 

F972 



007B 
007 C 
007 D 
007 E 
0080 
0069 

C000 
C010 

0358 
F479 
F686 
F4EE 
0050 
0081 
0082 
0085 
0087 

F901 
BA 

86 6A 
D8 

20 4EFC 
A6 6A 
9A 

A9 DF 

85 6B 
20 D5FC 
20 67F9 
20 2CF9 
84 7D 
A0 12 
88 

30E5 
D9 6CF9 
D0F8 
20 5EF9 
A4 7D 
4C 15F9 

A2 00 

86 76 
86 77 
Bl 7E 
C8 

4 9 B0 
C9 0A 
9006 
69 88 
C9 FA 
902A 
A2 03 
0A 
0A 
0A 
0A 
0A 

26 76 
26 77 
CA 
10F8 
A5 7C 
D006 
B5 77 
95 75 
95 79 
E8 

F0F3 
D0D4 



A9 FA 
48 

B9 7DF9 
48 

A5 7C 
A0 00 
84 7C 
60 

F96C 

00 

03 

06 

EB 

EC 

EE 

EF 



A4H 


. zj\2U 


A1L+7 








.EQU 


A1L+8 






YSAV 


. EQU 


A1L+9 






INBUF 


.EQU 


Al L+0A 








.EQU 


A1L+0C 






MASK 


. EQU 


LUKSUR 






r 

KBD 


.EQU 


0C000 








. EQU 


0C010 






t 


. ti\i\J 


O C Q 

Job 






BLOCK 10 


.EQU 


(xt? a n q 

iOC HI)) 






xvEjV^VJIM 


. EQU 


0F68 6 


f 


AS OF 12/20/1979 


DIAGN 


.EQU 








InDUf XjCjIM 


• EQU 


50 


r 


ONLY 80 BYTES ($3A0-$3EF) 


IBS LOT 


.EQU 


81 




lOUI\V IN 


.EQU 


lBbLUl+1 






iDDUI XT 




TT3 CT flT i Jl 

lobLUl+H 






IBCMD 


. EQU 


Tn nr Am i r 

lobLUl+b 






ENTRY 


.EQU 










TSX 










STX 


STACK 






MON 


pt n 




• 


MUST BE HEX MODE 




uoK 


BELL 






MONZ 


LDX 






RESTORE STACK TO ORIGINAL LOCATION 




TXS 










LDA 






PROMPT (APPLE) FOR SARA MONITOR 




STA 


PROMPT 








JSR 


GETLNZ 




GET A LINE OF INPUT 


SCAN 


kJOK 


■7 C T> TV HT 




SET REGULAR SCAN 


NXTINP 


Ten 
<JbK 


vj&INUM 




ATTEMPT TO READ HEX BYTE 




STY 


YSAV 


[ 


STORE CURRENT INPUT POINTER 




LDY 


#l£ 


r 


xo LUMMANDS 




DEY 










DUT 

DnL 


MON 


' 


GIVE UP IF UNRECOGNIZABLE 






OUr\11 TV V 

V-MDlArJ, I 


r 


FOUND? 






l,MDbKt,n 


r 


NO KEEP LOOKING 




JSR 


TOSUB 


r 


PERFORM FUNCTION 




LDY 


YSAV 


r 


GET NEXT POINTER 




JMP 


NXTINP 


t 


DO NEXT COMMAND 


r 

o£jl NUM 


LDX 


#00 




CLEAR A2 




STX 


A2L 








STX 


A2H 






in ax uni\ 


XjUA 


I lNBUr ) , I 








INY 




• 


BUMP INDEX FOR NEXT TIME 




EOR 


KY)dY> 








CMP 


JtOi'A 

#10 A 


[ 


TEST FOR DIGIT 




BCC 


Ui ul J. 


\ 


£>AVhj 11 Ir 1 — 9 




ADC 


IF O O 




fTIT~l C T 1 Pnn TTT7 V TV TP 

l&bl r UK rib A A - r 




CMP 


#0FA 








BCC 


u x vjr\.xj x 






DIGIT 


LDX 










ASL 


A 








ASL 


A 

A 








ASL 


A 










A 






NXTBIT 


ASL 


A 




SHIFT HEX DIGITS INTO A2 




ROL 


A2L 








ROL 


A2H 








DEX 










BPL 


MYTUTT 
WAlDl X 




CUTT^TUH TV T T V7?m n 

brill; lrMJ ALL YET? 


NXTBAS 


LDA 


STATE 








BNE 




r 


IF ZERO THEN COPY TO Al,3 




t m 

XjUA 


A2H r X 








CTJ 
olA 


A1H, X 










A3H, X 








TMV 
IN A 










dSL\2 


NXirJAb 








BNE 


MYTPHT5 






; SWITCH 


ROUTINE 


FOR CHARACTER 






TOSUB 


LDA 


IFlOr A 


f 


rUbH AUUKrjbb UK r UNCTION 




PHA 




t 


AMU KtilUKN 11 




LDA 


PMnwr v 
v^riijvrjv^, i 








PHA 










LDA 


STATE 


r 


PASS MODE VIA ACC. 


Z STATE 


LDY 


#00 








STY 


STATE 




RESET STATE OF SCAN 


DIGRET 


RTS 








CMDTAB 


.EQU 


* 








.BYTE 


00 




G =GP (CALL) SUBROUTINE 




.BYTE 


03 




J =JUMP (CONT) PROGRAM 




.BYTE 


06 




M =MOVE MEMORY 




.BYTE 


0EB 




R =READ DISK BLOCK 




.BYTE 


0EC 




S = MEMORY SEARCH 




.BYTE 


0EE 




U =USER FUNCTION 




.BYTE 


0EF 




V = VERIFY MEMORY BLOCKS 
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F973I 
F974| 
F975I 
F976| 
F977| 
F978I 
F979| 
F97A| 
F97B| 
F97CI 
F97D| 
F97D| 
F97DI 
F97E| 
F97F| 
F980| 
F981 1 
F982I 
F983| 
F984 | 
F985| 
F986I 
F987| 
F988I 
F989I 
F98A| 
F98BI 
F98C| 
F98D| 
F98E| 
F98E| 
F98E| 
F990 
F992| 
F994| 
F996 
F998I 
F99A| 
F99B| 
F99D| 
F99F| 
F9A0| 
F9A2I 
F9A4 | 
F9A6| 
F9A8I 
F9AA 
F9AC | 
F9AD 
F9AE 
F9AE | 
F9AE | 
F9AF | 
F9B0| 
F9B1 1 
F9B2| 
F9B3I 
F9B6 
F9B7| 
F9B9I 
F9BB| 
F9BD 
F9BFI 
F9C1| 
F9C4I 
F9C4I 
F9C7| 
F9C7 | 
F9C9| 
F9CB | 
F9CB 
F9CD | 
F9CF | 
F9D1| 
F9D3 
F9D5| 
F9D6| 
F9D6I 
F9D7 | 
F9D9 
F9DB| 
F9DDI 
F9DE | 
F9E0I 
F9E1 1 
F9E1| 
F9E3| 
F9E5| 
F9E7| 
^9E9| 



F0 
Fl 
99 
9B 
A0 
93 
A7 
A8 
95 
C6 

F97D 

90 

8E 

3F 

D3 

08 

8B 

4E 

D6 

2C 

B7 

1A 

1C 

CB 

CB 

AD 

A4 

39 



E6 7A 
D002 
E6 7B 
E6 74 
D005 
E6 75 
38 

F010 
A5 74 
38 

E5 76 
85 80 
A5 75 
E5 77 
05 80 
D001 
18 
60 



48 
4A 
4A 
4A 
4A 

20 B9F9 
68 

29 0F 
09 B0 
C9 BA 
9002 
69 06 
4C 39FC 

20 AEF9 

A9 BA 
D0F6 

A9 07 
24 68 
5002 
A9 0F 
85 69 
60 

8A 

F007 
B5 74 
95 72 
CA 
10F9 
60 

85 69 
A4 7D 
Bl 7E 
E6 7D 
A0 00 





.BYTE 


0F0 




; W =WRITE DISK BLOCK 




.BYTE 


0F1 




; X =REPEAT COMMAND LINE 




.BYTE 


99 




; SP =SPACE (BYTE SEPARATOR) 




.BYTE 


9B 




; " =ASCII (HI BIT ON) 




.BYTE 


0A0 




r ' =ASCII (HI BIT OFF) 




.BYTE 


93 




r I =SET STORE MODE 




.BYTE 


0A7 




: . =RAN(5F ^FPARATOR 




.BYTE 


0A8 




! / =COMMAND "SEPARATOR 




.BYTE 


95 




: < =DEST/«?OrTRrF "SFPARATHO 




.BYTE 


0C6 




' CR =CARRI AGE RETURN 


; 

CMDVEC 


.EQU 


* 








.BYTE 


90 




■ GO-1 




.BYTE 


8E 




• JUMP-1 




.BYTE 


3F 




• MOVE- 1 




.BYTE 


0D3 




• READ-1 




.BYTE 


08 




• SEARCH- 1 




.BYTE 


8B 




• USER-1 




.BYTE 


4E 




VRFY-1 




.BYTE 


0D6 




WRTE-1 




.BYTE 


2C 




REPEAT- 1 




.BYTE 


0B7 




SPCE-1 




.BYTE 


1A 




ASCII-1 




.BYTE 


1C 




ASCII0-1 




.BYTE 


0CB 




SETMODE-1 




.BYTE 


0CB 




SETMODE-1 




.BYTE 


0AD 




SEP-1 




.BYTE 


0A4 




DEST— 1 


; 


• BYTE 


39 




CRMON— 1 


; 

NXTA4 


INC 


A4L 




BUMP 1 6 P.TT PflTMTVDC 




BNE 


NXTA1 








INC 


A4H 






NXTA1 


INC 


AIL 




BUMP Al 




BNE 


TSTA1 








INC 


A1H 








SEC 






TN pac;f df rot t n\TVD 




BEQ 


RETA1 






TSTA1 


LDA 


AIL 








SEC 










SBC 


A2L 








STA 


TEMP 








LDA 


A1H 








SBC 


A2H 








ORA 


TEMP 








BNE 


RETA1 




IF Al LESS THAN OR EQUAL TO A2 




CLC 






THEN CARRY CLEAR ON RETURN 


RETA1 


RTS 






PRBYTE 


PHA 




; 


SAVE LOW NIBBLE 




LSR 


A 








LSR 


A 


r 


SHIFT HI NIBBLE TO PRINT. 




LSR 


A 








LSR 


A 








JSR 


PRHEXZ 








PLA 








PRHEX 


AND 


#0F 


. 


STRIP HI NIBBLE 


PRHEXZ 


ORA 


#0B0 


'. 


MAKE IT NUMERIC 




CMP 


#0BA 




IS IT >* 9 ' 




BCC 


PRHEX2 








ADC 


#06 




MAKE IT 'A'-'F' 


PRHEX2 


JMP 


COUT 






PRBYCOL 


JSR 


PRBYTE 






; 

PRCOLON 


LDA 


#0BA 




PRINT A COLON 


• 


BNE 


PRHEX2 




BRANCH ALWAYS 


TST80WID 


LDA 


#07 




ANTICIPATE 




BIT 


MODES 


r 


TEST FOR 80 




BVC 


SVMASK 








LDA 


#0F 






SVMASK 


STA 


MASK 








RTS 








; 

A1PC 


TXA 




I 


TEST FOR NEW PC 




BEQ 


OLDPC 






A1PC1 


LDA 


A1L,X 








STA 


PCL, X 








DEX 










BPL 


A1PC1 






OLDPC 


RTS 








ASCII 1 


STA 


MASK 


r 


SAVE HI BIT STATUS 


ASCII2 


LDY 


YSAV 


r 


MOVE ASCII TO MEMORY 




LDA 


(INBUF) , Y 








INC 


YSAV 


r 


BUMP FOR NEXT THING. 




LDY 


#00 
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F9EB| 


C9 A2 




CMP 


#0A2 


• ASCII " ? 




F9ED| 


D005 




BNE 


ASCI 13 






F9EFI 


A5 69 




LDA 


MASK 






F9F1I 


1032 




BPL 


BITON 






F9F3| 


60 




RTS 






F9F4 


C9 A7 


ASCI I 3 


CMP 


#0A7 


; ASCII ' ? 




F9F6| 


D005 




BNE 




; NU, IbSl rUR EOL. 




F9F8I 


A5 69 




LDA 


MASK 






F9FA| 


302D 




BMI 


oil Ur r 






F9FC| 


60 




RTS 








F9FDI 














F9FD| 


C9 8D 


CRCHK 


CMP 


#8D 


• run OP T TNT "? 




F9FF| 


F007 




BEQ 


ASCDONE 


; YES, FINISHED 




FA01| 


25 69 




AND 


MASK 






FA03I 


20 C3FA 




JSR 


STOR1 


; GO STORE IT! 




FA06 | 


D0DB 




BNE 


ASCI 12 


; DO NEXT. 




FA08| 


60 




RTS 








FA09| 




t 










FA09| 




t 










FA09| 


Bl 74 


SEARCH 


LDA 


(AIL) , Y 


• LOAD ^FAPPW RYTP 




FA0B| 


C5 7A 




CMP 


A4L 




FA0D| 


D006 




BNE 


SRCH1 






FA0F| 


20 75FA 




JSR 


PRINTA1 


• DUMP MFMORY 




FA12| 


20 EFFC 




JSR 


CROUT 






FA15I 


20 94F9 


SRCH1 


JSR 


NXTA1 


; INCREMENT POINTER 




FA18| 


90EF 




BCC 


SEARCH 


• PONTTltfTTt? WIDPU 
, ^UW 1 1 NU£j oCjAK^M 




FA1A| 


60 




RTS 




• PFTnPN 
f tS.S-i 1 Ur\IN 




FA1B| 












FA1B| 




t 










FA1B| 


38 


ASCI I 


SEC 




• TMnTPlTP HT nw 
r J- PiU l^nllj HI \Jvi • 




FA1C| 


90 




.BYTE 90 


r t-Dt-V^ — WiiiVCjK lAACiJM; 




FA1D| 


18 


B CfT Tfl( 
AoCl 110 


CLC 




• TNTITCATF HT CiW 




FA1E| 


AA 




TAX 




r oAVhi olAlrj 




FA1F| 


86 7C 




STX 


STATE 


r KiiilAIN oIAICi 




FA21 1 


4 9 BA 




EOR 


#0BA 


; ARE WE IN STORE MODE? 




FA23| 


D07D 




BNE 


ERROR 






FA25I 


A9 FF 


BITON 


LDA 


#0FF 


, o£jl til xsll UNMAbAhjU 




FA27| 


B0B8 




BCS 


ASCI 11 




FA2 9| 


A9 7F 


BITOFF 


LDA 


#7F 


; MASK HI BIT 




FA2B| 


10B4 




BPL 


ASCI 11 


; ALWAYS BRANCHES 




FA2DI 


2C 00C0 


REPEAT 


BIT 


KBD 


; REPEAT UNTIL KEYPRESS 




FA30I 


1003 




BPL 


REPEAT 1 




FA32| 


4C 0FFD 




JMP 


KEYIN 






FA35| 


68 




PLA 




• CLEAN UP STACK 




FA36| 


68 


Lit! A J 


PLA 








FA37| 


4C 12F9 




JMP 


SCAN 






FA3A| 




r 










FA3A| 




r 










FA3A| 


20 B4FA 


C P MOM 


JSR 


BL1 






FA3D| 


4C 08F9 




JMP 


MONZ 






FA40I 














FA40| 














FA40| 


20 9DF9 


MOVE" 


JSR 


TSTA1 


; TEST VALID RANGE 




FA43| 


B05D 




BCS 


ERROR 




FA45| 


Bl 74 


MOUMYT 


LDA 


(AIL) , Y 


; COMPARE BYTE FOR BYTE 




FA4 7| 


91 7A 




STA 


(A4L) , Y 






FA4 9| 


20 8EF9 




JSR 


NXTA4 


; BUMP BOTH Al AND A4 




FA4CI 


90F7 




BCC 


MOVNXT 






FA4EI 


60 




RTS 




; ALL DONE WITH MOVE 




FA4F| 




i 








FA4F| 














FA4F| 


20 9DF9 


VRFY 


JSR 


TSTA1 


; TEST VALID RANGE 




FA52| 


B04E 




BCS 


ERROR 






FA54| 


Bl 74 


VRFY1 


LDA 


(A1L),Y 


; COMPARE BYTE FOR BYTE 




FA56I 


Dl 7A 




CMP 


(A4L),Y 


; MATCH ? 




FA58I 


F006 




BEQ 


VRFY 2 


; YES, DO NEXT. 




FA5AI 


20 66FA 




JSR 


MISMATCH 


; PRINT BOTH BYTES 




FA5D| 


20 EFFC 




JSR 


CROUT 


• GOTO NFWT.TNF 




FA60I 


20 8EF9 


VRFY2 


JSR 


NXTA4 


, OUntr ovJltl Al AND A^ 




FA63I 


90EF 




BCC 


VRFY1 




FA65I 


60 




RTS 




; VERIFY DONE. 




FA66I 












FA66| 


A5 7B 


UT OM7\ TfU 

MloMAlCh 


LDA 


A4H 






FA68| 


20 AEF9 




JSR 


PRBYTE 




FA6B| 


A5 7A 




LDA 


A4L 






r ADD | 


n ryt. f> * Trio 




JSR 


PRBYCOL 


; OUTPUT A COLON FOR SEPARATOR 




FA70| 


Bl 7A 




LDA 


(A4L),Y 


• AND THP DATA 




FA72I 


20 84FA 




JSR 


PRBYTSP 


; PRINT THE BYTE AND A SPACE 




FA75| 


20 87FA 


PRINTA1 


JSR 


PRSPC 


, IiJIjAU wlln A brACHi 




FA7 8I 


A5 75 




LDA 


A1H 


; OUTPUT ADDRESS Al 




FA7AI 


20 AEF9 




JSR 


PRBYTE 






FA7D| 


A5 74 




LDA 


AIL 






FA7F| 


20 C4F9 




JSR 


PRBYCOL 


; SEPARATE WITH A COLON 




FA82I 


Bl 74 


PRA1BYTE 


LDA 


(A1L),Y 


; PRINT BYTE POINTED TO BY Al 




FA84 | 


20 AEF9 


PRBYTSP 


JSR 


PRBYTE 






FA87| 


A9 A0 


PRSPC 


LDA 


#0A0 


; PRINT A SPACE 




FA89| 
FA8CI 


4C 39FC 




JMP 


COUT 


; END VIA OUTPUT ROUTINE. 




FA8C| 


4C 5803 


USER 


JMP 


USERADR 






FA8FI 
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FA8F| 


68 


JUMP 


PLA 








FA90| 


68 




PLA 




; LEAVE STACK WITH NOTHIN' ON IT. 




FA91 1 


20 D6F9 


GO 


JSR 


A1PC 


; STUFF PROGRAM COUNTER 




FA94 | 


6C 7200 




JMP 


@PCL 


; JUMP TO USER PROG. 




FA97 | 




r 










FA97 1 


FA97 


RWERROR 


• EQU 




; PRINT ERROR NUMBER 




FA97| 


20 AEF9 




JSR 


PRBYTE 


• ODTHT Till? rVC'I7''I?'MTYE , Ti 




FA9A| 


A9 Al 




LDA 




• COT T r\fJT? P\ T> V Ti it f tl 

; r UliLUWHilJ ol A I 




FA9C | 


20 39FC 




JSR 


COUT 






FA9F 1 




ERROR2 


JSR 


NOSTOP 


; OUTPUT A CARRIAGE RETURN (NO STOPLST) 




FAA2 | 


4C 04F9 


ERROR 


TMD 


MON 




FAA5| 




r 








FAA5 | 


A5 76 


DEST 


t ni 




; COPY A2 TO A4 FOR DESTINATION OP 




FAA7 | 


85 7A 




CTA 
olA 


A4L 




FAA9 | 


A5 77 




T ha 


AZri 






FAAB | 


85 7B 




CTA 


A^ rl 






FAAD | 


60 




RTS 








FAAE | 














FAAEI 


20 B8FA 


SEP 


JSR 




; SEPARATOR TEST STORE MODE OR DUMP . 




FAB1 1 


98 




TYA 




; ZERO MODE. 




FAB 2 | 


F01D 




BEQ 


SETMDZ 


; BRANCH ALWAYS 




FAB 4 | 












FAB 4 | 


C6 7D 


BL1 


DEC 


I oAV 


; TEST FOR NO LINE 




FAB 6 | 


F045 




BEQ 


DUMP 8 


; IF NO LINE, GIVEM A ROW OF BYTES 




FAB 8 | 


CA 


SPCE 


DEX 




; TEST IF AFTER ANOTHER SPACE 




FAB 9 | 


D01 6 




BNE 


SETMDZ 




FABB| 


C9 BA 




pup 


ffSdnA 


; STORE MODE ? 




FABD | 


D04B 




BNE 


TSTDUMP 






FABF | 


85 7C 


STOR 


STA 


STATE 


; KEEP IT IN STORE STATE 




FAC1 1 


A5 76 




LDA 


A2L 


; GET BYTE TO BE STORED 




FAC3| 


91 78 


STOR1 


STA 


fA*3T \ Y 

\t\3Lil f I 


• PrTT TT TM MPMnD V 
/ irUl 11 IN MrjMUK I . 




FAC5| 


E6 78 




INC 


A3L 


, nunc fUlNlrjK 




FAC7 | 


D002 




BNE 


TVTMMV 






FAC9 | 


E6 79 




INC 


A3H 






FACB| 


60 


DUMMY 






; ALSO USED FOR ' / ' TO CLEAR MODE 




FACCI 




r 








FACCI 


A4 7D 


SETMODE 


LDY 


VC AA7 
I oAV 


; USE INPUT CHARACTER 




FACE | 


88 




DEY 








FACF| 


Bl 7E 




LDA 


tlNBUr ) ,i 


; TO SET MODE 




FAD1 1 


85 7C 


SETMDZ 


STA 


STATE 






FAD 3 | 


60 




RTS 








FAD 4 | 




t 










FAD 4 | 


A9 01 


READ 


LDA 


#01 






FAD 6| 


2C 




• BYTE 


2C 


• rtTlMMV DTT rn/~v OVTT3 O nVTUe 

, UUMMI oil 1U bJvlF £. BlltS 




FAD 7 | 


A9 02 


WRTE 


LDA 


4019 


; SET DISK COMMAND TO WRITE 




FAD 9 | 


85 87 


bAVt-MD 


STA 


IBCMD 




FADB| 


A5 74 


RWLOOP 


LDA 


AIL 






FADD j 


85 85 




CPA 


IrSour Jr 


; COMMAND FORMAT IS 




FADFI 


A5 75 




LDA 


A1H 


f oliVJ^AIXUrLDiliK v.AJJJJKrjOO CjNJJ AUDKCjOo 




FAE1 1 


85 86 




STA 


XddUi It tl 






FAE3 | 


A6 7B 




LDX 


A4H 


; SEND BLOCK NUMBER VIA X & A 




FAE5 | 


A5 7A 




LDA 


A4L 






FAE7 | 


78 




CT? T 

o£jl 




; NO INTERRUPTS WHILE IN MONITOR 




FAE8| 


20 79F4 




JSR 




r UU DIoaU J? XjVrjK 




FAEB | 


B0AA 




BCS 




; GIVE UP IF ERROR ENCOUNTERED 




FAED | 


E6 7A 




T \tf~> 


A4L 


; BUMP BLOCK NUMBER 




FAEF | 


D002 




JtJNrj 


WUVrjK 






FAF1 1 


E6 7B 




INC 


AHrl 






FAF3 | 


E6 75 


NOVER 


INC 


A1H 


; BUMP RAM ADDRESS BY 512 BYTES 




FAF5 | 


E6 75 




TMri 
INt- 


A1H 




FAF7 | 


20 9DF9 




JSR 


lOlAl 


; lkbl t UK r INlbnhjU 




FAFA| 


90DF 




BCC 


rwt.oop 


• mot nnxTF no wvyt q t nrv 




FAFCI 


60 




Kl £> 






FAFD | 














FAFD | 


A5 75 


DUMP 8 


t na 


A1H 






FAFF| 


85 77 




oln 


JOB 

A^n 






FB01 | 


20 CBF9 




JSR 


TCTfl /TIM T Pi 

loloidWlU 


; GET WIDTH MASK INTO ACC 




FB04 | 


05 74 




ORA 


AIL 






FB06| 


85 76 




STA 


A2L 






FB08 | 


D006 




BNE 


IJUIYLr S0 


r iSKANL.rl AliWAlb 




FB0A| 














FB0A| 


4A 


TSTDUMP 


LSR 




• DUMP ? 




FB0B| 


B095 


ERROR 1 


BCS 






FB0D | 


20 CBF9 


DUMP 


JSR 


TCTQ0WTH 


; SET FOR EITHER 80 OR 40 COLUMNS 




FB10| 


A5 74 


DUMP0 


LDA 


Al T 
AX Jj 






FBI 2| 


85 7A 




STA 


A4L 






FBI 4| 


A5 75 




LDA 


A1H 






FBI 6| 


85 7B 




STA 


A4H 






p i 

r Dl o 1 


£.Vi yur y 




JSR 


TSTA1 


. test FOR VALID RANGE 




FB1B| 


B0EE 




BCS 


ERROR 1 






FB1DI 


20 75FA 


DUMP1 


JSR 


PRINTA1 


; PRINT ADDRESS AND FIRST BYTE 




FB20| 


20 94F9 


DUMP 2 


JSR 


NXTA1 






FB23I 


B010 




BCS 


DUMPASC 


; END WITH ASCII 




FB25| 


A5 74 




LDA 


AIL 


; TEST END OF LINE 




FB27| 


25 69 




AND 


MASK 


; FOR 40/80 COLUMN 




FB2 9| 


D005 




BNE 


DUMP 3 




FB2B| 


20 35FB 




JSR 


DUMPASC 






FB2E| 


D0ED 




BNE 


DUMP1 


; BRANCH ALWAYS 




FB30| 


20 82FA 


DUMP 3 


JSR 


PRA1BYTE 


; GO PRINT NEXT BYTE AND A SPACE 




FB33| 


D0EB 




BNE 


DUMP 2 


; ALWAYS (ACC JUST PULLED AS $A0) 





"_75.PICT' 658 KB 2001-09-10 dpi: 600h x 600v pix: 4639h x 6201 v 

Source: David T. Craig | Page 0033 of 0047 



Apple III Computer Information • Doc # 085 • Apple III Boot ROM Listing 



10/31/89 10:04 



HD:Apple ///:ROM - Monitor 



Page 7 



FB35 

FB35 

FB37 

FB39 

FB3B 

FB3D 

FB40 

FB42 

FB44 

FB4 6 

FB48 

FB4A 

FB4C 

FB4F 

FB52 

FB54 

FB56 

FB58 

FB5A 

FB5D 

FB5D 

FB5D 

FB5E 

FB61 

FB63 

FB63 

FB64 

FB67 

FB69 

FB6B 

FB6D 

FB6F 

FB71 

FB73 

FB75 

FB77 

FB7 9 

FB7B 

FB7D 

FB7D 

FB7F 

FB81 

FB83 

FB85 

FB85 

FB87 

FB88 

FB8A 

FB8B 

FB8E ! 

FB91 ! 

FB93! 

FB95| 

FB98 

FB9A 

FB9B 

FB9C 

FB9D 

FB9F 

FBA0 

FBA2 

FBA2 

FBA4 

FBA7 

FBA7 

FBA9 

FBAB 

FBAD 

FBAF 

FBB2 

FBB5 

FBB8 

FBB8 

FBB8 

FBBA 

FBBC 

FBBE 

FBC0 

FBC2 

FBC3 

FBC5 

FBC7 

FBC7 

FBC7 

FBC9 

FBCB 

FBCB 

FBCD 

FBCF 

FBD1 



A5 7A 


DUMPASC 


LDA 


A4L 




RESET TO BEGINNING OF LINE 


85 74 




STA 


AIL 






A5 7B 




LDA 


A4H 






85 75 




STA 


AlH 






20 87FA 




JSR 


PRSPC 




PDTMT AN FYTRA eDjrr 

XTtvAINX AIM CiAiAn OIrAl«£j 


A0 00 


ASCI 


LDY 


#00 




TO INDEX MEMORY INDIRECT 


Bl 74 




LDA 


fAlT.l Y 

\AXXj/ , I 






09 80 




ORA 


#80 




SET NORMAL VIDEO 


C9 A0 




CMP 


#0A0 




TF^T FOR OONTROT nilDlPTI'DC 


B002 




BCS 


ASC2 




Off TO PR TNT NON fnNTDflT C 


A9 AE 




LDA 


#0AE 




OTHERWISE PRINT A SPACE 


20 39FC 


ASC2 


JSR 


COUT 




PUT IT OUT 


20 8EF9 




JSR 


NXTA4 




RJTMP nnTH A1 Awn A A 
BUFur BUln Al AMU AH 


B006 




BCS 


ASC3 






A5 74 




LDA 


AIL 




rpPCT C\Tr\ Ap T TXTC 


25 69 




AND 


MASK 






D0E6 




BNE 


ASCI 




NOT nnNP PTJTMT MPYT 


4C EFFC 


ASC3 


JMP 


CROUT 






38 


'. 

COL 80 


SEC 






INDICATE 80 COLUMNS 


AD 53C0 




LDA 


0C053 




ooto fld cm ttmn MoriF 


B004 


. 


BCS 


SET80 




BRANCH ALWAYS 


18 


COL 40 


CLC 






INDICATE 40 COLUMNS DESIRED 


AD 52C0 




LDA 


0C052 




GOTO 40 COLUMN MODE 


A5 68 


SET 80 


LDA 








09 40 




rip a 






ASSUME 80 


B002 




BCS 


^FTfiflA 

OHi X o xJr\ 




AUn PRANCI! TF TT T C 
AINU DKAINt,n lr 11 lb 


2 9 BF 




AND 


#0BF 




BUT FIX FOR 40 IF NOT 


85 68 


SET80A 


STA 


MODES 






09 7F 




ORA 


#7F 




T^flT 1TP PTT 1 

X OUbAi Hi £3 X X 1 


29 A0 




AIMD 


#0A0 




(BIT 7 SETS NORMAL/ INVERSE) 


85 66 




cti 
OlA 








B002 




BCS 


SET80B 




AGAIN ASSUMES 80 COLUMNS 


A9 F0 




LDA 


#0F0 




lr NU1 , btl r UK/ BACKGROUND COLOR 


85 67 


SET80B 


STA 


BKGND 






A5 58 


r 

CLSCRN 


LDA 


LMARGIN 


' 


CFT CTTRQOR TO TOP T PPT f\W UTMnnw 


85 5C 




STA 


CH 




A5 5A 




LDA 


WINTOP 






85 5D 




STA 


CV 


r 


HUn UKSjc IMlvJ t-LhiAK LNU Or PAGE 


A5 5C 


CLEOP 


LDA 


CH 


. 
r 


^A\7F CTTRRFNT PnRQOR PnCTTTHW 


48 




PHA 








A5 5D 




LDA 


CV 






48 




PHA 








20 C5FB 




JSR 


SETCV 






20 A2FB 


CLEOP1 


JSR 


CLEOL 




CLEAR TO END OF FIRST LINE 


A5 58 




LDA 


LMARGIN 






85 5C 




STA 


CH 






20 DDFB 




JSR 


CURD OWN 


t 


OOTO NFYT T TNF 


90F4 




BCC 


CLEOP 1 






68 




PLA 








A8 




TAY 








68 




PLA 






RESTORE CURSOR POSITION 


85 5C 




STA 


CH 






98 




TYA 




r 


GET OLD CV IN ACC AGAIN 


B023 




BCS 


SETCV 


f 


BRANCH ALWAYS 


A5 5C 


CLEOL 


LDA 


CH 




CLEAR TO END OF LINE FIRST 


4C 89FC 




JMP 


CLEOL1 






C9 80 


CONTROL 


CMP 


#80 






9065 




BCC 


DISPLAYX 




IF INVERSE 


C9 8D 


TSTCR 


CMP 


#8D 


r 


TF PARRTAfSF RFTHRN THFN NFW T TNF 


D03A 




BNE 


TSTBACK 






20 A2FB 


CARRAGE 


JSR 


CLEOL 


. 
r 


FTR^T PTFAR TO TWF PMn OF THTC T TMT? 
r X IxO X V^XjIjAK. X W XIICj CjPtU \JC ltlio Xjl WXj 


20 D7FB 




JSR 




r 


RFCFT fTTD COD A XTFl mTH MPVT T TXTt? /PJinnu 


4C 16FC 


. 


JMP 


NXTLIN 


r 


THFN f^OTO THF MFYT T TMF 

X 11 Hi IN UWIU X nCj IN £jA X Xj X I\ Hj ■ 


A5 5D 


r 

CURUP 


LDA 


CV 


r 


TEST FOR TOP OF SCREEN 


C6 5D 




DEC 


CV 


t 


ANTTCTPATF 'NOT* TOP 


C5 5A 




CMP 


WINTOP 






D002 




BNE 


CURUP 1 


. 


IT'S NOT TOP CONTTNTIF 


A5 5B 




LDA 


WINBTM 


; 


WRAP AROUND TO BOTTOM 


38 


v-UKUr 1 


SEC 




r 


DECREMENT BY ONE 


E9 01 




SBC 


#01 






85 5D 


SETCV 


STA 


CV 


f 


SAVE NEW VERTICAL LINE 


FBC7 


BASCALC 


.EQU 


* 






FBC7 


CURDN1 


.EQU 


* 






A5 5D 




LDA 


CV 


i 


GET VALUES FOR FIRST PAGE ($400) 


104E 




BPL 


BASCALC 1 




ALWAYS 


24 68 


CURIGHT 


BIT 


MODES 




TEST FOR 80 OR 40 


7002 




BVS 


RIGHT1 






E6 5C 




INC 


CH 






E6 5C 


RIGHT1 


INC 


CH 




BUMP CURSOR HORIZONTAL 



"_76.PICT" 657 KB 2001-09-10 dpi: 600h x 600v pix: 461 5h x 621 3v 



Source: David T. Craig 



Page 0034 of 0047 



Apple III Computer Information • Doc # 085 • Apple III Boot ROM Listing 



10/31/89 10:04 



HD:Apple ///:ROM - Monitor 



Page 8 



FBD3I 


A5 5C 




LDA 


CH 


r 


TEST FOR NEW LINE 


FBD5| 


C5 59 




CMP 


RMARGIN 






FBD7 | 


A5 58 


SETCHZ 


LDA 


LMARGIN 


r 


JUST IN CASE WE HAVE. 


FBD9| 


905D 




BCC 


CTRLRET 






FBDBI 


85 5C 


SETCVH 


STA 


CH 




CURSOR AT START OF NEXT LINE 


FBDDI 




; DROP INTO CURDOWN FOR WRAP 


AROUND 


FBDD| 














FBDD| 


E6 5D 


CURDOWN 


INC 


CV 


r 


MOVE CURSOR DOWN ONE LINE 


FBDF| 


A5 5D 




LDA 


CV 


f 


ANTICIPATE NOT BOTTOM 


FBE1 1 


C5 5B 




CMP 


WINBTM 


• 


TEST FOR BOTTOM 


FBE3I 


90E2 




BCC 


CURDN1 






FBE5I 


A5 5A 




LDA 


WINTOP 






FBE7| 


B0DC 




BCS 


SETCV 


; 


BRANCH ALWAYS 


FBE9| 














FBE9I 


C9 88 


TSTBACK 


CMP 


#88 


t 


BACKSPACE? 


FBEBI 


D05D 




BNE 


TSTBELL 




FBEDI 


24 68 


CURLEFT 


BIT 


MODES 


r 


TEST FOR FOURTY OR EIGHTY MODE 


FBEF| 


7002 




BVS 


LEFT 80 






FBF1| 


C6 5C 




DEC 


CH 






FBF3| 


C6 5C 


LEFT 80 


DEC 


CH 






FBF5 1 


3006 




BMI 


LEFTUP 






FBF7| 


A5 5C 




LDA 


CH 


r 


TEST FOR WRAP AROUND 


FBF9| 


C5 58 




CMP 


LMARGIN 






FBFBI 


103B 




BPL 


CTRLRET 






FBFDI 


20 B8FB 


LEFTUP 


JSR 


CURUP 






FC00I 


A5 59 




LDA 


RMARGIN 






FC02 | 


85 5C 




STA 


CH 


w 


SAVE NEW CURSOR POSITION 


FC04 | 


D0E7 




BNE 


CURLEFT 


; 


BRANCH ALWAYS 


FC06I 




; 










FC06| 


C9 A0 


COUT2 


CMP 


#0A0 


r 


IS IT CONTROL CHARACTER 


FC08| 


909D 




BCC 


CONTROL 






FC0A| 


24 68 




BIT 


MODES 


r 


TEST FOR INVERSE 


FC0C| 


3002 




BMI 


DISPLAYX 


r 


NO PUT IT OUT 


FC0E| 


2 9 7F 




AND 


#7F 


• 


STRIP HI BIT 


FC10| 


20 9DFC 


DISPLAYX 


JSR 


DISPLAY 






FC13I 














FC13| 


20 CBFB 


INCHORZ 


JSR 


CURIGHT 


r 


MOVE CURSOR RIGHT 


FC16| 


B043 


NXTLIN 


BCS 


SCROLL 


r 


IT'S BOTTOM, RESET CH=0 AND SCROLL 


FC18| 


60 




RTS 




r 


RESET CH ONLY 


FC19I 




r 










FC19| 


08 


BASCALC1 


PHP 




• 


CALC BASE ADR IN BAS4L, H 


FC1A| 


48 




PHA 






FC1B| 


4A 




LSR 


A 


r 


FOR GIVEN LINE NO. 


FC1C| 


29 03 




AND 


#03 


r 


0<=LINE NO.<$17 


FC1E| 


09 04 




ORA 


#04 


; 


ARG=000ABCDE , GENERATE 


FC20| 


85 5F 




STA 


BAS4H 


r 


BAS4H=000001CD 


FC22| 


49 0C 




EOR 


#0C 






FC24 | 


85 61 




STA 


BAS8H 






FC2 6| 


68 




PLA 




; 


AND 


FC2 7| 


29 18 




AND 


#18 


r 


B AS 4 L =E AB AB 000 


FC2 9| 


9002 




BCC 


BSCLC2 






FC2B| 


69 7F 




ADC 


#7F 






FC2D| 


85 5E 


BSCLC2 


STA 


BAS4L 






FC2F| 


0A 




ASL 


A 






FC30I 


0A 




ASL 


A 






FC31I 


05 5E 




ORA 


BAS4L 






FC33| 


85 5E 




STA 


BAS4L 






FC35| 


85 60 




STA 


BAS8L 


; 


SAME FOR PAGE 2 


FC37| 


28 




PLP 








FC38I 


60 


CTRLRET 


RTS 








FC39| 




r 










FC3 9| 


48 


COUT 


PHA 




r 


SAVE CHARACTER 


FC3AI 


84 6D 




STY 


TEMPY 






FC3CI 


86 6C 




STX 


TEMPX 






FC3E| 


20 47FC 




JSR 


COUT1 






FC41| 


A4 6D 




LDY 


TEMPY 






FC43I 


A6 6C 




LDX 


TEMPX 






FC45| 


68 




PLA 








FC4 6I 


60 




RTS 








FC4 7 | 


6C 6E00 


COUT1 


JMP 


@CSWL 


; 


NORMALLY COUT1 


FC4A| 














FC4A| 


C9 87 


TSTBELL 


CMP 


#87 




BELL? 


FC4C| 


D004 




BNE 


LNFD 




NO TEST FOR FORM FEED 


FC4E| 


AE 40C0 


BELL 


LDX 


0C040 




SOUND BELL 


FC51I 


60 




RTS 








FC52| 


C9 8A 


LNFD 


CMP 


#8A 




LINE FEED? 


FC54I 


D0E2 




BNE 


CTRLRET 






FC56| 


20 DDFB 




JSR 


CURDOWN 




MOVE CURSOR DOWN A LINE 


FC59 | 


90DD 




BCC 


CTRLRET 




BRANCH IF NO SCROLL NECESSARY. 


FC5B| 














FC5BI 


A5 5A 


SCROLL 


LDA 


WINTOP 




START WITH TOP LINE 


FC5DI 


48 




PHA 






SAVE IT FOR NOW 


FC5EI 


20 C5FB 




JSR 


SETCV 




GET BASCALC FOR THIS LINE 


FC61| 


A2 03 


SCRL1 


LDX 


#03 




MOVE CURRENT BASCALC AS DESTINATION 


FC63I 


B5 5E 


SCRL2 


LDA 


BAS4L,X 






FC65I 


95 58 




STA 


TBAS4L,X 




(TEMPORARY BASE ADDR. ) 


FC67| 


CA 




DEX 






FC68| 


10F9 




BPL 


SCRL2 






FC6A| 


68 




PLA 




r 


GET DESTINATION LINE 


FC6B| 


18 




CLC 
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FC6C | 


69 01 




ADC 


#01 


; CALCULATE SOURCE LINE. 


FC6EI 


C5 5B 




CMP 


WINBTM 


; IS IT THE LAST LINE? 


FC70| 


B015 




BCS 


LASTLN 


; YES, CLEAR IT 


FC72 | 


48 




PHA 




* SAVE AS NEXT DESTINATION LINE 


FC73 | 


20 C5FB 




JSR 


SETCV 




FC7 6 | 


A5 59 




LDA 


RMARGIN 


■ MOVE SOURCE TO DESTINATION 


FC78 | 


4A 




LSR 




• DIVIDE BY 2 


FC7 9| 


A8 




TAY 






FC7A| 


88 


SCRL3 


DEY 




; DONE YET 


FC7B| 


30E4 




BMI 


SCRL1 


; YES, DO NEXT LINE 


FC7D| 


Bl 5E 




LDA 


(BAS4L) , Y 




FC7F | 


91 58 




STA 


(TBAS4L) , Y 




FC81 1 


Bl 60 




LDA 


(BAS8L) , Y 




FC83| 


91 64 




STA 


(TBAS8L) , Y 




FC85| 


90F3 




BCC 


SCRL3 


• P.RANCH ALWAYS 


FC87 | 


A5 58 


LASTLN 


LDA 


LMARGIN 


• BLANK FILL THE LAST LTNP 


FC89 | 


4A 


CLEOL1 


LSR 




• nTVTnF P.Y 7 


FC8A| 


A8 




TAY 






FC8B | 


B004 




BCS 






FC8D| 


A5 66 




LDA 


FORGND 


; (NORMALLY A SPACE) 


FC8F| 


91 5E 




STA 






FC91 1 


A5 67 


CLEOL2 


LDA 


Dixon u 


r ixr o so ^ULunno , hlou t\ or av^Ii ; 


FC93 1 


91 60 




STA 


\DnOOL/ , X 




FC95 | 


C8 




INY 




FC96 | 


98 




TYA 






FC97 | 


0A 




ASL 




• MULT BY 2 AGAIN 


FC98| 


C5 59 




CMP 


RMARGIN 




FC9A| 


90ED 




BCC 


CLEOL1 


; CONTINUE IF MORE TO DO. 


FC9C| 


60 




RTS 




; ALL DONE . 


FC9D | 




; 








FC9D | 


24 68 


DISPLAY 


BIT 


MODES 


* TEST FOR 40 OR 80 


FC9F| 


700C 




BVS 


DSPL80 


; STORE THE SINGLE CHARACTERS AND RETURN 


FCA1 1 


4 6 5C 




LSR 


CH 


; INSURE PROPER 40 COLUMN DISPLAY 


FCA3| 


06 5C 




ASL 


CH 


; BY DROPPING BIT 


FCA5 | 


20 ADFC 




JSR 




• nT<?PT IV TN PAfSV 


FCA8 | 


A5 67 




LDA 


BKGND 




FCAA| 


91 60 


DSPBKGND 


STA 


\ DnO o Xi / , X 




FCACI 


60 




RTS 




FCADI 




r 








FCAD | 


48 


DSPL80 


PHA 




; PRESERVE CHARACTER 


FCAE | 


A5 5C 




LDA 


CH 


• nPTFRMTNF WHICH PAftF 


FCB0| 


4A 




LSR 


A 




FCB1 1 


A8 




TAY 






FCB2 | 


68 




PLA 






FCB3| 


B0F5 




BCS 


DSPBKGND 


; BRANCH IF $900 PAGE 


FCB5| 


91 5E 




STA 


(BAS4L) , Y 




FCB7 | 


60 




RTS 






FCB8 | 




r 








FCB8 | 


Bl 7E 


NOTCR 


LDA 


(INBUF) , Y 


; ECHO CHARACTER 


FCBAI 


20 39FC 




JSR 


COUT 




FCBDI 


C9 88 




CMP 


#88 


; BACKSPACE 


FCBFI 


F01D 




BEQ 


BKSPCE 




FCC1 1 


C9 98 




CMP 


#98 


; CANCEL? 


FCC3| 


F008 




BEQ 


CANCEL 




FCC 5 | 


E6 80 




INC 


TEMP 




FCC 7 | 


A5 80 




LDA 


TEMP 




FCC 9| 


C9 50 




CMP 


#INBUFLEN 




FCCBI 


D017 




BNE 


NXTCHAR 


; NO WRAP AROUND ALLOWED. 


FCCD| 


A9 DC 


CANCEL 


LDA 


#0DC 


; OUTPUT BACKSLASH 


FCCFI 


20 39FC 




JSR 


COUT 




FCD2 | 


20 EFFC 




JSR 


CROUT 




FCD5I 


FCD5 


GETLNZ 


.EQU 


* 




FCD5 | 


A5 6B 


GETLN 


LDA 


PROMPT 




FCD7 | 


20 39FC 




JSR 


COUT 




FCDA| 


A0 01 




LDY 


#01 




FCDCI 


84 80 




STY 


TEMP 


; START AT BEGINNING OF INBUF 


FCDEI 


A4 80 


BKSPCE 


LDY 


TEMP 




FCE0I 


F0F3 




BEQ 


GETLN 




FCE2| 


C6 80 




DEC 


TEMP 


; BACK UP INPUT BUFFER 


FCE4| 


20 60FD 


NXTCHAR 


JSR 


RDCHAR 


; GET INPUT 


FCE7 | 


A4 80 




LDY 


TEMP 




FCE9| 


91 7E 




STA 


(INBUF) , Y 




FCEBI 


C9 8D 




CMP 


#8D 




FCED| 


D0C9 




BNE 


NOTCR 




FCEFI 


FCEF 


CROUT 


.EQU 


* 




FCEF | 


2C 00C0 




BIT 


KBD 


; TEST FOR START/ STOP 


FCF2I 


1013 




BPL 


NOSTOP 




FCF4| 


20 2EFD 




JSR 


KEYIN3 


; READ KBD 


FCF7 | 


C 9 A0 




CMP 


#0A0 


; IS IT A SPACE? 


FCF9| 


F007 




BEQ 


STOPLST 


; YES, PAUSE TIL NEXT KEYPRESS. 


FCFBI 


C9 89 




CMP 


#89 


; QUIT THIS OPERATION 


FCFDI 


D008 




BNE 


NOSTOP 


; NO, IGNORE THIS KEY. 


FCFFI 


4C 9FFA 




JMP 


ERROR2 


; YES, RESTART 


FD02| 


AD 00C0 


STOPLST 


LDA 


KBD 




FD05| 


10FB 




BPL 


STOPLST 




FD07I 


A9 8D 


NOSTOP 


LDA 


#8D 




FD09| 


4C 39FC 




JMP 


COUT 




FD0C| 












FD0C| 


6C 7000 


RDKEY 


JMP 


8KSWL 




FD0F| 
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FD0F| 


A9 7F 


KEY IN 


T HA 
1>UA 


f lr 


; MAKE SURE FIRST IS CURSOR 


FD11 | 


85 63 






IrJAb^H 




FD13 | 


20 88FD 




JSR 


PICK 


; GO READ SCREEN 


FD16 | 


48 


KEYIN1 


PHA 




; SAVE CHR AT CURSOR POSITION 


FD17| 


20 35FD 




JSR 


KF YWATT 


• tpct rno vtpvppi?cc 

r lUiOl iUK JVti IItKCjOO 


FD1A| 


B008 




BCS 


KEYIN2 




FD1C| 


A5 69 




t r»A 


rnDcnD 

LUKoUK 


; GIVE THEM AN UNDERSCORE FOR A TIME 


FD1E| 


20 9DFC 




JSR 


Til "SPT.AY 


FD21 1 


20 35FD 




JSR 


tTFYWATT 
rUii I WA1 1 


. oo cpp ti 1 vpvDDPpepr\ 


FD24I 


68 


KEYIN2 


PLA 






FD25| 


08 




PHP 




• cave vfyppitcc ctsthc 

r oAVxli JVCj xirKijoo 0IAIU0 


FD2 6 | 


48 




PHA 






FD27| 


20 9DFC 




JSR 


DISPLAY 




FD2AI 


68 




PLA 






FD2B j 


28 




PT P 
cue 






FD2C | 


90E8 




BCC 


KEYIN1 




FD2EI 


AD 00C0 


KEYIN3 


t na 

JUL) A 


KBD 


; READ KEYBOARD 


FD31 1 


2 C 1 0C0 


KEYIN4 


BIT 


KBDSTRB 


; CLEAR KEYBOARD STROBE 


FD34 | 


60 




RTS 






FD35| 


E6 58 


KEYWAIT 


INC 


1 DAo H Li 


; JUbl ivhiEjir Q.UUN1ING 


FD37 | 


D009 




BNE 






FD3 9| 


E6 63 




INC 


IDnotn 




FD3B | 


A9 7F 




t nil 


f It 


m 

; TEST FOR DONE 


FD3D| 


18 




CLC 






FD3E| 


25 63 




AND 






FD40| 


F005 




BEQ 


KEYRET 


; RETURN IF TIMED OUT 


FD42| 


0E 00C0 


KWAIT2 


ASL 


KBD 




FD45 | 


90EE 




BCC 


V"E> vw a T T 




FD47 | 


60 




RTQ 






FD4 8| 












FD48| 




i 








FD4 8 | 


FD4 8 


ESC3 


iron 






FD4 8| 


20 77FD 




JSR 






FD4B| 


A5 68 


ESCAPE 


LDA 




• CPT TO 4. CT^W T?OD OTTDCOD U("«n?e 


FD4D| 


2 9 80 




AND 


#80 




FD4F | 


49 AB 




EOR 


#0AB 




FD51I 


85 69 




STA 


pnR<;op 




FD53| 


20 0CFD 


ESC1 


JSR 


RDKEY 


, KrjAU NCjAL V^nAKAL.l£jK 


FD56| 


A0 08 




LDY 


#08 




FD58I 


D9 F0FF 


ESC2 


CMP 


F^PTART. Y 




FD5B| 


F0EB 




BEQ 


ESC3 




FD5D| 


88 




DEY 






FD5E j 


10F8 




DDT 
DC Li 


_ _ 
fciSCZ 


; LOOP TIL FOUND OR DONE 


FD60| 




r 






FD60| 


A9 80 


RDCHAR 


LDA 


#80 




FD62| 


25 68 




AND 




FD64 | 


85 69 




STA 


pnpQnp 


r oAVCi blANUAKU LUKbUK 


FD66| 


20 0CFD 




JSR 


KUAXj X 


FD6 9| 


C9 9B 




CMP 




• V CO A DTP fU7\D7VOTT7D "5 

r CiOV^Axr£i v-MAKAl_lJiiK/ 


FD6B| 


F0DE 




BEQ 


ESCAPF 




FD6D| 


C9 95 




CMP 


#95 


f r \Jt\.rtr\S\xJ K*KJC X - 


FD6F| 


D0D6 




BNE 


KEYRET 




FD71 1 


20 88FD 




JSR 


PICK 


• GFT PHARAPTFR FROM <?PRFFN 


FD74I 


09 80 




ORA 


#80 


■ QFT TD WORMAT BCfTT 


FD7 6I 


60 




RTS 






FD77| 




r 








FD77 | 


A9 FB 


GOESC 


LDA 


#0FB 




FD7 9| 


48 




PHA 




FD7A| 


B9 7FFD 




LDA 


FCPVFPT Y 




FD7D| 


48 




PHA 






FD7E| 


60 




RTS 






FD7F| 


Al 


ESCVECT 


• BYTE 


0A1 


• OT FOT —1 
r Vw LljUii i 


FD80| 


84 




.BYTE 


84 


; CLEOP-1 


FD81| 


7C 




• BYTE 


7C 


; CLSCRN-1 


FD82I 


62 




.BYTE 


62 


; COL40-1 


FD83I 


5C 




.BYTE 


5C 




FD84 | 


EC 




.BYTE 






FD85| 


CA 




• BYTE 


0CA 


• PTTRTPHT— 1 


FD86 1 


DC 




PVTT 


0DC 


; CUKUUWIM— 1 


FD87 | 


B7 




P.VT1T 




; v,UKUlr— 1 


FD88| 












FD88| 


A5 5C 


PICK 


LDA 


CH 


• KFT A PHARAPTFR AT OriRPFMT PTTRCOP POCTTTOM 


FD8A| 


4A 




LSR 


A 


• DFTFRMTNF WHTPH PAfiF 


FD8B| 


A8 




TAY 




FD8CI 


24 68 




BIT 


MODES 


• AND TF 8d PflT.TTMN MfinF 


FD8E| 


5005 




BVC 


PICK40 


• FORP.FT OAPRY TF AOi fnTHMWC 


FD90| 


9003 




BCC 


PICK40 


• t*2FT OHARAPTFP FROM *iAOiOi 


FD92| 


Bl 60 




LDA 


(BAS8L) , Y 


FD94 1 


050 




RTS 




FD95| 


Bl 5E 


PICK40 


LDA 


(BAS4L) , Y 




FD97| 


60 




RTS 




FD98| 












FD98I 


FD98 


CLDSTRT 


.EQU 


* 




FD98| 


A9 03 




LDA 


#03 




FD9AI 


8D D0FF 




STA 


0FFD0 


; ZERO PAGE IS ON 3! 


FD9DI 


FD9D 


SETUP 


.EQU 


* 




FD9D| 


D8 




CLD 




; OF COURSE! 


FD9E| 


A2 03 




LDX 


#03 




FDA0I 


86 7F 




STX 


INBUF+1 




JDA2 | 


BD BCFF 


SETUP 1 


LDA 


NMIRQ, X 
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FDA5 | 


9D CAFF 




STA 


0FFCA X 




FDA8 


BD B4FF 




LDA 


HOOKS, X 




FDAB| 


95 6E 




STA 


CSWL,X 




FDADI 


BD B8FF 




LDA 


VdUUNUo, a 




FDB0I 


95 58 




STA 


T.MAR.ftT'M V 




FDB2| 


CA 




DEX 






FDB3| 


10ED 




BPL 


SETUP 1 




FDB5| 


85 82 




STA 


J. D Ut\ V W 




FDB7 | 


A9 A0 




LDA 


Jt ci a ci 


, lNrUl Bur thK AI 9 J AO 


FDB9| 


85 7E 




STA 


INBUF 


FDBBI 


A9 60 




LDA 


If OJO 




FDBDI 


85 81 




STA 


TR^T.DT 




FDBFI 


A9 FF 




LDA 


#0FF 




FDC1 1 


85 68 




STA 






FDC3| 


20 63FB 




JSR 


COL40 


; SET 40 COLUMNS, CLEAR SCREEN 


FDC6 | 




r 








FDC6| 


00A0 


ADR 


.EQU 


0A0 




FDC6| 


00A0 


CPORTL 


.EQU 


ADR 




FDC6I 


00A1 


CPORTH 


.EQU 


ADR+1 




FDC6| 


00A2 




.EQU 


ADR+2 




FDC6 | 


00A3 


CTEMP1 


.EQU 


ADR+3 




FDC6I 


00A4 


VTUMD 

I lrjMir 


.EQU 


ADR+4 




FDC6 | 


00C0 


r\ui rptp vm 


.EQU 


Ann+9cj 




FDC6| 


C0DB 




.EQU 


0C0DB 




FDC6| 


C0DA 


CWD T>r\rr 
v-WKlUr r 


.EQU 






FDC6 | 


FFEC 


CB2CTRL 


.EQU 


0FFEC 




FDC6| 
FDC6I 


FFED 


CB2INT 


• EQU 


toe r CiU 




FDC6I 












FDC6I 


A9 78 


GENENTR 


LDA 


#78 


; I NIT SCREEN INDX LOCATIONS 


FDC8| 


85 A0 




STA 


CPORTL 




FDCA| 


A9 08 




LDA 


IF ICO 




FDCCI 


85 Al 




STA 


CPORTH 




FDCEI 


A9 F0 




LDA 


#0F0 


; SET UP INDEX TO CHRSET 


FDD0| 


85 A4 




STA 


YTEMP 




FDD2| 


A9 00 




LDA 


#00 




FDD4 | 


AA 




TAX 




FDD5 | 


95 C0 


7TD TT MO O 


STA 


ROWTEMP,X 




FDD7 | 


E8 




I NX 






FDD8I 


E0 20 




CPX 


#20 




FDDA| 


D0F9 




BNE 


ZIPTEMPS 




FDDC| 


A9 05 




LDA 


#05 


; FAKE THE FIRST BIT PATTERN 


FDDEI 


18 




CLC 




; (PHANTOM 9TH BIT SHIFTED AS BIT 0) 


FDDF| 


08 




PHP 




FDE0| 


48 




PHA 






FDE1I 


86 A2 




STX 


CTEMP ; GENERATE THE ASCII 


FDE3| 


A0 07 


bAoLi 1 


LDY 


#07 ; CODES FOR THE FIRST PASS 


FDE5 | 


A6 A2 


GASCI 2 


LDX 


CTEMP 




FDE7| 


8A 




TXA 






FDE8| 


91 A0 




STA 


(CPORTL) ,Y 


7 $XXF=CHR 0/4 


FDEAI 


E8 




I NX 




7 $XXE=CHR 1/5 


FDEBI 


88 




DEY 




7 $XXD=CHR 2/6 


FDEC| 


3006 




BMI 


GASCI 4 


7 $XXC=CHR 3/7 


FDEE| 


C0 03 




CPY 


#03 


7 $XXB=CHR 0/4 


FDF0| 


D0F5 




BNE 


GASCI 3 


7 $XXA=CHR 1/5 


FDF2| 


F0F1 




BEQ 


GASCI 2 


■ $XX9=CHR 2/6 


FDF4| 


20 99FE 


onO\ — L *4 


JSR 


NXTPORT 


■ $XX8=CHR 3/7 


FDF7| 


B008 




BCS 


CBYTES 


• GO DECODE CHARACTER TABLE 


FDF9| 


C9 0A 




CMP 


#0A 


• SECOND SET OF 4? 


FDFBI 


D0E6 




BNE 


GASCI1 


FDFDI 


A2 24 




LDX 


#24 




FDFF| 


D0E0 




BNE 


GENASC ; BRANCH ALWAYS 


FE01| 


68 


CBYTES 


PLA 


; RESTORE BIT PATTERN 


FE02| 


28 




PLP 






FE03| 


A2 17 




LDX 


#17 


• (4 CHARACTERS OF 6 ROWS) 


FE05I 


A0 05 


CCOLMS 


LDY 


#05 


(FIVE COLUMNS) 


FE07| 


36 C4 


CSHFT 


ROL 


ROWTEMP+4 f X , 


BREAK BYTE INTO 


FE09| 


0A 




ASL 


A 


5 BIT GROUPS 


FE0A| 


D00E 




BNE 


SHFTCNT 


BRANCH IF MORE BITS IN THIS BYTE 


FE0C| 


84 A2 




STY 


CTEMP 


FE0E| 


C6 A4 




DEC 


YTEMP ; (NOTE. CARRY IS SET) 


FE10| 


F016 




BEQ 


DONE ; BRANCH IF ALL DONE 


FE12| 


A4 A4 




LDY 


YTEMP ; GET CHARACTER TABLE INDEX 


FE14 | 


B9 C4FE 




LDA 


CHRSET-1 , Y 




FE17| 


2A 




ROL 


A 


(CARRY KEEPS BYTE NON-ZERO UNTIL ALL 8 ARE 


FE18I 


A4 A2 








ARE SHIFTED) 


FE18I 




LDY 


CTEMP \ 


RESTORE COLUMN COUNT 


FE1A| 


88 


orir lt-Nl 


DEY 




GOT ALL FIVE BITS? 


FE1B| 


D0EA 




BNE 


CSHFT ; 


NO, DO NEXT 


FE1D| 


CA 




DEX 




ALL ROWS DONE 


FE1E| 


10E5 




BPL 


CCOLMS \ 


NO, DO NEXT 


FE20I 


08 




PHP 




SAVE REMAINING BIT PATTERN AND CARRY 


FE21| 


48 




PHA 




FE22I 


20 28FE 




JSR 


STORCHRS ; 


MOVE EM TO NON DISPLAYED VIDEO AREA 


FE25I 


4C 01FE 




JMP 


CBYTES 




FE2 8| 












FE28| 


FE28 


DONE 


.EQU 


* 




FE28| 










FE28| 


A2 IF 


STORCHRS 


LDX 


#1F 


MOVE CHARACTER PATTERNS TO VIDEO AREA 


FE2A| 


A0 00 


STORSET 


LDY 


#00 
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FE2C| 


B5 C0 










•3 X UnUn 


LDA 


ROWTEMP, X 






FE2E| 


0A 












ASL 


A 


; SHIFT TO CENTER 




FE2F | 


29 3E 












AND 




, olKlir CjXIKA bARBAbt 




FE31| 


91 A0 












STA 


(CPORTL) , Y 




FE33| 


CA 












DEX 






FE34 | 


C8 












INY 








FE35| 


C0 08 












CPY 


#08 


; THIS GROUP DONE 




FE37| 


D0F3 












BNE 


STOROW 


; NO, NEXT ROW 




FE39I 


20 99FE 












JSR 


NXTPORT 






FE3CI 


C9 08 












CMP 


#08 






FE3EI 


F004 












BEQ 


GENDONE 






FE40| 


8A 












TXA 








FE41 1 


10E7 












BPL 


STORSET 






FE43I 
FE44 | 


60 












RTS 




; PARTIAL SET ($478— $5FF) 




FE44I 


A9 01 












LDA 


#01 


; SET NORMAL MODE 




FE4 6| 


85 A2 












STA 


CTEMP 






FE4 8| 


A9 60 










GEN1 


LDA 


#60 


• PRF.PARF. TO QVMn P.YTFQ TO PHARAfTFD 




FE4A| 


2C DBC0 












BIT 




• PFWFP RTfYD DAM 




FE4D| 


20 AEFE 












JSR 


VRETRCE 


• WATT FOR NFYT VFRTTPAT PFTDAfF 




FE50| 


A9 20 












LDA 


#20 


; WAIT AGAIN 




FE52I 


20 AEFE 












JSR 


VRFTRCF 






FE55I 


2C DAC0 












BIT 


CWRTOFF 


• PHARAPTFRC APF Hnw TriAHFri 




FE58| 


20 88FE 












JSR 


ALTCHR 


■ RFPFAT THTC CFT TOD OTUFD CA f'UJV 13 71 r"nrn e» 




FE5B| 


C6 A2 












DEC 


CTEMP 


• WAVF WF nnMF IT TPDH1TPC VPTI 




FE5D| 


1016 












BPL 


GEN 2 


• Nn no tt i 




FE5F| 


A9 08 












LDA 


#08 


; BUMP ASCII VALUES FOR NEXT SET 




FE61| 


85 Al 












STA 






FE63| 


A0 07 










XT VT 71 C* T 


LDY 


#07 


• TUT? nCMRT /TWTMTr^HXT 




FE65| 


Bl A0 












LDA 


fPPORTT \ V 






FE67| 


18 












CLC 






FE68| 


69 08 












ADC 


#08 






FE6AI 


91 A0 












STA 


/PPOPTT \ V 






FE6C| 


88 












DEY 






FE6D| 


10F6 












BPL 








FE6F | 


20 99FE 












JSR 








FE72| 


90EF 












BCC 


NXTASCI 






FE74 | 


60 












RTS 








FE75| 


A0 03 










GEN 2 


LDY 


#03 


; SETUP ALTERNATE WITH UNDERLINES 




FE77| 


A9 7F 












LDA 


#7F 






FE7 9I 


99 FC05 










UJNUJjK 


STA 


05FC Y 






FE7C| 


99 FC07 












STA 


07FC, Y 






FE7FI 


88 












DEY 








FE80I 


10F7 












BPL 


UNDER 






FE82| 


A9 08 












LDA 


#08 






FE84 | 


85 Al 












STA 


TPflDTH 
\~X- \ji\x n 






FE86| 


D0C0 












BNE 


GEN1 






FE88| 












; 










FE88I 


A0 07 










ALTCHR 


LDY 


#07 


• AH.Tn^T AC.PT T FOR AT TFRWATF CFT 
r rn/uuoi AoV/j. i r \jt\ axjxCji\Nt\xci ocii 




FE8A| 


Bl A0 










ALTC1 


LDA 


(CPORTL) , Y 




FE8C| 


4 9 20 












EOR 


#20 


, ^ C-XJ ' y lit/ DjO 




FE8EI 


91 A0 












STA 


(CPORTL) , Y 




FE90I 


88 












DEY 






FE91 1 


10F7 












BPL 


ALTC1 


* AnJTJ^T THFM AT.T. 




FE93| 


20 99FE 












JSR 


NXTPORT 






FE96| 


90F0 












BCC 


ALTCHR 






FE98| 


60 












RTS 








FE99I 






















FE99| 


A5 A0 










NYTPODT 


LDA 


CPORTL 


; CONVERT $78->$F8 OR $F8-$78 




FE9BI 


4 9 80 












EOR 


#80 




FE9D| 


85 A0 












STA 


CPORTL 






FE9F| 


3002 












BMI 


NOHIGH 






FEA1 1 


E6 Al 












INC 


CPORTH 






FEA3| 


A5 Al 










ix wn Aon 


LDA 


CPORTH 






FEA5| 


C9 0C 












CMP 


#0C 






FEA7| 


D004 












BNE 


PORTDN 






FEA9| 


A9 04 












LDA 


#04 






FEABI 


85 Al 












STA 


CPORTH 






FEADI 


60 










tr\Jt\i.uN 


RTS 








FEAEI 






















FEAEI 


85 A3 










VRETRCE 


STA 


CTEMP 1 


, OAVili olio 1U Dh blUKijU 




FEB0| 


AD ECFF 












LDA 


CB2CTRL 


; CONTROL PORT FOR *CB2' 




FEB 3 | 


2 9 3F 












AND 


#3F 


• DFCFT HT DTTC Tfl Ok 
, K£io£j1 HI Clio 1U lo 




FEB 5 | 


05 A3 












ORA 


CTEMP 1 






FEB 7| 


8D ECFF 












STA 


CB2CTRL 






FEBAI 


A9 08 












LDA 


#08 


; TEST VERTICAL RETRACE 




FEBCI 


8D EDFF 












STA 


CB2INT 






FEBF| 


2C EDFF 










VWAIT 


BIT 


CB2INT 


; WAIT FOR RETRACE 




FEC2 | 


F0FB 












BEQ 


VWAIT 






FEC4 | 


60 












RTS 








FEC5| 












t 










FEC5| 


FEC5 










CHRSET 


.EQU 


* 






FEC5| 












r 








FEC5| 


F0 01 82 


18 


40 


84 


81 




.BYTE 


0F0,01,82, 18 


,40, 84, 81, 2F, 58, 44, 81,29,02, IE, 01, 91, 7C, IF, 4 9, 


30 


FECCI 


2F 58 44 


81 


29 


02 


IE 










FED3| 


01 91 7C 


IF 


49 


30 














FED 9| 


8A 08 43 


14 


31 


2A 


22 




.BYTE 


8A,08 f 43, 14, 


31,2A,22.13,0E3.0F7.0C4. 91.4 8. 0A2 - 0DA. 24 . 0C6 . 4A 


FEE0| 


13 E3 F7 


C4 


91 


48 


A2 












FEE 7 | 


DA 24 C6 


4A 


















FEEB| 


62 8C 24 


C6 


F8 


63 


8C 




.BYTE 


62,8C,24,0C6,0F8,63,8C,0C1,4 6,17,52,8A,0AF,16,14,0E3,33,31 
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FEF2| 


CI 


46 


17 


52 


8A 


AF 


16 


FEF9 | 


14 


E3 


33 


31 








FEFD | 


C6 


F8 


DC 


73 


3F 


46 


17 


FF04 | 


62 


8C 


21 


E6 


18 


6A 


8D 


FF0B| 


61 


CF 


18 


62 








FF0FI 


74 


Dl 


B9 


18 


49 


4C 


91 


FF16| 


C0 


F3 


09 


2C 


91 


C0 


14 


FF1D| 


ID 


8C 


EF 


07 








FF21 1 


17 


43 


88 


31 


84 


IE 


DF 


FF28| 


0B 


31 


84 


F8 


FE 


77 


3E 


FF2F | 


3E 


17 


62 


8C 


FD 






FF34 | 


C7 


50 


E3 


0B 


51 


C5 


E8 


FF3B | 


C8 


73 


18 


0C 


42 


3E 


01 


FF42 | 


02 


20 


42 


3E 








FF4 6| 


41 


18 


8C 


08 


00 


70 


EE 


FF4D| 


00 


11 


11 


21 


11 


02 


E0 


FF54 | 


3C 


21 


31 


02 


E0 






FF59| 


1C 


00 


C8 


B9 


80 


62 


14 


FF60I 


IF 


46 


A2 


DE 


43 


2C 


04 


FF67 | 


88 


BE 


FF 


CE 








FF6B | 


7D 


37 


49 


88 


95 


18 


98 


FF72 | 


09 


62 


Dl 


44 


E8 


88 


FB 


FF7 9| 


02 


90 


40 


00 


10 






FF7E| 


E0 


03 


02 


00 


40 


00 


00 


FF85I 


08 


00 


00 


28 


10 


42 


44 


FF8CI 


25 


82 


B8 


2F 


48 






FF91 1 


25 


44 


10 


82 


02 


00 


2F 


FF98 | 


5A 


40 


45 


02 


8E 


64 


50 


FF9F| 


90 


01 


3E 


26 


42 


80 




FFA5| 


21 


80 


00 


05 


00 


F8 


80 


FFACI 


00 


05 


08 


F8 


80 


28 


05 


FFB3| 


88 














FFB4 | 
















FFB4| 


FFB4 












FFB4 | 


06FC 












FFB6| 


0FFD 












FFB8 | 


FFB8 












FFB8 | 


00 


50 


00 


18 








FFBC| 
















FFBC | 


4C 


86F6 










FFBF | 


40 














FFC0| 
















FFC0| 


43 


4F 


50 


59 


52 


49 


47 


FFC7| 


48 


54 


20 


4A 


41 


4E 


55 


FFCEI 


41 


52 


59 


2C 


20 


31 


39 


FFD5| 


38 


30 


20 


20 


41 


50 


50 


FFDC | 


4C 


45 


20 


43 


4F 


4D 


50 


FFE3| 


55 


54 


45 


52 


20 


49 


4E 


FFEAI 


43 


2E 


2E 


4A 


52 


48 




FFF0| 
















FFF0| 


CC 


D0 


D3 


B4 


B8 


88 


95 


FFF7 | 


8A 


8B 


00 










FFFAI 
















FFFA| 


CAFF 












FFFCI 


EEF4 












FFFE| 


CDFF 












00001 
















00001 
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HOOKS 

VBOUNDS 

NMIRQ 



.BYTE 0C6, 0F8, 0DC, 73,3F,46, 17, 62, 8C, 21,0E6, 18, 6A, 8D, 61,0CF,18, 62 

• BYTE 74,0D1,0B9,18,49,4C, 91 , 0C0, 0F3, 09, 2C, 91, 0C0, 14 , ID, 8C, 0EF, 07 

.BYTE 17,43,88,31,84,1E,0DF,0B,31,84,0F8,0FE,77,3E,3E, 17,62,8C,0FD 

.BYTE 0C7,50,0E3,0B,51,0C5,0E8,0C8,73,18,0C,42,3E,01,02,20,42,3E 

■BYTE 41,18,8C,08,00,70,0EE,00,11,11,21,11,02,0E0,3C,21,31,02,0E0 

BYTE 1C,00,0C8,0B9,80,62,14,1F,46,0A2,0DE,43,2C,04, 88, 0BE, 0FF, 0CE 

BYTE 7D, 37, 4 9, 88, 95,18, 98,09, 62,0D1, 44, 0E8, 88,0FB,02, 90,40,00,10 

BYTE 0E0, 03, 02, 00, 40, 00, 00, 08, 00, 00, 28, 10, 42, 44, 25, 82, 0B8,2F, 48 

BYTE 25,44, 10, 82, 02,00, 2F,5A, 40, 45, 02, 8E, 64, 50, 90,01, 3E, 26, 42, 80 

BYTE 21, 80, 00, 05, 00, 0F8, 80, 00, 05, 08, 0F8, 80, 28, 05, 88 



.EQU * 

.WORD COUT2 

.WORD KEYIN 

.EQU * 



.BYTE 00,50,00,18 



JMP 
RTI 



RECON 



IN DIAGNOSTICS 



.ASCII "COPYRIGHT JANUARY, 1980 APPLE COMPUTER INC.JRH" 



ESCTABL 



NMI 

RESET 

IRQ 



.BYTE 0CC, 0D0, 0D3, 0B4, 0B8, 88, 95, 8A, 8B, 00 



.WORD 0FFCA 

.WORD DIAGN 

.WORD 0FFCD 

.END 



NOTHING 



SYMBOL TABLE DUMP 



AB - Absolute 


LB - Label 




UD - 


Undefined 




MC - 


Macro 












RF - Ref 






DF - Def 




PR - 


Proc 




FC - 


Func 












PB - Public 




PV - Private 


CS - 


Consts 


















A1H 


AB 


0075 


I AIL 


AB 


0074 


A1PC 


LB 


F9D6 


I A1PC1 


LB 


F9D9 | 


A2H 


AB 


0077 


A2L 


AB 


007 6 


1 A3H 


AB 


007 9 


A3L 


AB 


0078 


I A4H 


AB 


007B | 


A4L 


AB 


007A 


ADR 


AB 


00A0 


I ALT CI 


LB 


FE8A 


ALTCHR 


LB 


FE88 


I ASCI 


LB 


FB40 | 


ASC2 


LB 


FB4C 


ASC3 


LB 


FB5A 


1 ASCDONE 


LB 


FA08 


ASCII 


LB 


FA1B 


I ASCII0 


LB 


FA1D | 


ASCII1 


LB 


F9E1 


ASCII2 


LB 


F9E3 


1 ASCI I 3 


LB 


F9F4 


BAS4H 


AB 


005F 


I BAS4L 


AB 


005E | 


BAS8H 


AB 


0061 


BAS8L 


AB 


0060 


I BASCALC 


LB 


FBC7 


BASCALC 1 


LB 


FC19 


I BELL 


LB 


FC4E | 


BITOFF 


LB 


FA2 9 


BITON 


LB 


FA25 


I BKGND 


AB 


0067 


BKSPCE 


LB 


FCDE 


I BL1 


LB 


FAB 4 | 


BLOCKIO 


AB 


F479 


BSCLC2 


LB 


FC2D 


I CANCEL 


LB 


FCCD 


CARRAGE 


LB 


FBAF 


I CB2CTRL 


AB 


FFEC | 


CB2INT 


AB 


FFED 


CBYTES 


LB 


FE01 


1 CCOLMS 


LB 


FE05 


CH 


AB 


005C 


I CHRSET 


LB 


FEC5 | 


CKMDE 


LB 


FA1E 


CLDSTRT 


LB 


FD98 


1 CLEOL 


LB 


FBA2 


CLEOL 1 


LB 


FC89 


I CLEOL 2 


LB 


FC91 | 


CLEOP 


LB 


FB85 


CLEOP1 


LB 


FB8E 


1 CLSCRN 


LB 


FB7D 


CMDSRCH 


LB 


F91C 


I CMDTAB 


LB 


F96C | 


CMDVEC 


LB 


F97D 


COL 40 


LB 


FB63 


I COL 80 


LB 


FB5D 


CONTROL 


LB 


FBA7 


I COUT 


LB 


FC39 | 


COUT1 


LB 


FC4 7 


COUT2 


LB 


FC06 


I CPORTH 


AB 


00A1 


CPORTL 


AB 


00A0 


| CRCHK 


LB 


F9FD I 


CRMON 


LB 


FA3A 


CROUT 


LB 


FCEF 


1 CSHFT 


LB 


FE07 


CSWH 


AB 


006F 


I CSWL 


AB 


006E | 


CTEMP 


AB 


00A2 


CTEMP1 


AB 


00A3 


I CTRLRET 


LB 


FC38 


CURDN1 


LB 


FBC7 


I CURDOWN 


LB 


FBDD J 


CURIGHT 


LB 


FBCB 


CURLEFT 


LB 


FBED 


1 CURSOR 


AB 


0069 


CURUP 


LB 


FBB8 


I CURUP 1 


LB 


FBC2 | 


CV 


AB 


005D 


CWRTOFF 


AB 


C0DA 


1 CWRTON 


AB 


C0DB 


DEST 


LB 


FAA5 


I DIAGN 


AB 


F4EE | 


DIGIT 


LB 


F941 


DIGRET 


LB 


F96B 


I DISPLAY 


LB 


FC9D 


DISPLAYX 


LB 


FC10 


I DONE 


LB 


FE28 | 


DSPBKGND 


LB 


FCAA 


DSPL80 


LB 


FCAD 


I DUMMY 


LB 


FACB 


DUMP 


LB 


FB0D 


I DUMP0 


LB 


FB10 | 


DUMP1 


LB 


FB1D 


DUMP 2 


LB 


FB20 


I DUMP 3 


LB 


FB30 


DUMP 8 


LB 


FAFD 


I DUMPASC 


LB 


FB35 | 


ENTRY 


LB 


F901 


ERROR 


LB 


FAA2 


1 ERROR 1 


LB 


FB0B 


ERROR 2 


LB 


FA9F 


I ESC1 


LB 


FD53 | 


ESC2 


LB 


FD58 


ESC3 


LB 


FD48 


I ESCAPE 


LB 


FD4B 


ESCTABL 


LB 


FFF0 


I ESCVECT 


LB 


FD7F | 


FORGND 


AB 


0066 


^GASCIl 


LB 


FDE3 


1 GASCI2 


LB 


FDE5 


GASCI3 


LB 


FDE7 


I GASCI4 


LB 


FDF4 | 


GEN1 


LB 


FE4 8 
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GEN 2 LB 

GETLNZ LB 

IBBUFP AB 

INBUFLEN AB 

KBDSTRB AB 

KEYIN4 LB 

KWAIT2 LB 



LMARGIN AB 



MON 
NMI 
NOVER 
NXTBAS 
NXTINP 
PCL 
PRBYCOL LB 
PRHEX2 LB 
RDCHAR 
REP EAT 1 
RETA1 
RWLOOP 
SCRL3 
SET 80 
SETCVH 
SHFTCNT LB 
STOPLST LB 
STORSET LB 
TBAS8L AB 
TST80WID LB 
TSTDUMP LB 
VRETRCE LB 
WINBTM AB 
ZIPTEMPS LB 



FE75 
FCD5 
0085 
0050 
C010 
FD31 
FD42 
0058 
F904 
FFFA 
FAF3 
F94F 
F915 
0072 
F9C4 
F9C1 
FD60 
FA35 
F9AD 
FADB 
FC7A 
FB67 
FBDB 
FE1A 
FD02 
FE2A 
0064 
F9CB 
FB0A 
FEAE 
005B 
FDD5 



GENASC 

GETNUM 

IBCMD 

INCHORZ 

KEY IN 

KEYRET 

LASTLN 

LNFD 

MONITOR 

NMIRQ 

NXTA1 

NXTBIT 

NXTLIN 

PICK 

PRBYTE 

PRHEXZ 

RDKEY 

RESET 

RIGHT1 

SAVCMD 

SCRNLOC 

SET80A 

SETMDZ 

SPCE 

STOR 

SVMASK 

TEMP 

TSTA1 

UNDER 

VRFY 

WINTOP 

Z STATE 



LB FDE1 
LB F92C 
AB 0087 
LB FC13 
LB FD0F 
LB FD4 7 
LB FC87 
LB FC52 

PR 

LB FFBC 
LB F994 
LB F947 
LB FC16 
LB FD88 
LB F9AE 
LB F9B9 
LB FD0C 
LB FFFC 
LB FBD1 
LB FAD 9 
AB 0058 
LB FB6F 
LB FAD1 
LB FAB 8 
LB FABF 
LB F9D3 
AB 0080 
LB F99D 
LB FE7 9 
LB FA4F 
AB 005A 
LB F967 



GENDONE 


LB 


FE44 | 


GENENTR 


LB 


FDC6 | 


GETLN 


LB 


FCD5 


GO 


LB 


FA91 | 


GOESC 


LB 


FD77 | 


HOOKS 


LB 


FFB4 


IBDRVN 


AB 


0082 | 


IBSLOT 


AB 


0081 | 


INBUF 


AB 


007E 


IRQ 


LB 


FFFE | 


JUMP 


LB 


FA8F | 


KBD 


AB 


C000 


KEY INI 


LB 


FD16 | 


KEYIN2 


LB 


FD24 | 


KEY IN 3 


LB 


FD2E 


KEYWAIT 


LB 


FD35 | 


KSWH 


AB 


0071 | 


KSWL 


AB 


0070 


LEFT 80 


LB 


FBF3 | 


LEFTUP 


LB 


FBFD | 


LFA36 


LB 


FA36 


MASK 


AB 


0069 j 


MISMATCH 


LB 


FA66 j 


MODES 


AB 


0068 


MONZ 


LB 


F908 j 


MOVE 


LB 


FA40 | 


MOVNXT 


LB 


FA45 


NOHIGH 


LB 


FEA3 | 


NOSTOP 


LB 


FD07 | 


NOTCR 


LB 


FCB8 


NXTA4 


LB 


F98E | 


NXTASC2 


LB 


FE65 | 


NXTASCI 


LB 


FE63 


NXTBS2 


LB 


F959 | 


NXTCHAR 


LB 


FCE4 | 


NXTCHR 


LB 


F932 


NXTPORT 


LB 


FE99 | 


OLDPC 


LB 


F9E0 | 


PCH 


AB 


0073 


PICK40 


LB 


FD95 | 


PORTDN 


LB 


FEAD | 


PRA1BYTE 


LB 


FA82 


PRBYTSP 


LB 


FA84 | 


PRCOLON 


LB 


F9C7 | 


PRHEX 


LB 


F9B7 


PRINTA1 


LB 


FA75 | 


PROMPT 


AB 


006B | 


PRSPC 


LB 


FA87 


READ 


LB 


FAD 4 | 


RECON 


AB 


F686 | 


REPEAT 


LB 


FA2D 


RET1 


LB 


F7FE | 


RET 2 


LB 


F900 | 


RET 3 


LB 


F882 


KMAKVj 1 N 


AB 


005 9 | 


KUWTEMP 


AB 


00C0 | 


RWERROR 


LB 


FA97 


SCAN 


LB 


F912 | 


SCRL1 


LB 


FC61 | 


SCRL2 


LB 


FC63 


SCROLL 


LB 


FC5B | 


SEARCH 


LB 


FA09 | 


SEP 


LB 


FAAE 


SET80B 


LB 


FB7B | 


SETCHZ 


LB 


FBD7 | 


SETCV 


LB 


FBC5 


SETMODE 


LB 


FACC | 


SETUP 


LB 


FD9D | 


SETUP 1 


LB 


FDA2 


SRCH1 


LB 


FA15 | 


STACK 


AB 


006A | 


STATE 


AB 


007 C 


STOR1 


LB 


FAC3 | 


STORCHRS 


LB 


FE28 | 


STOROW 


LB 


FE2C 


TBAS4H 


AB 


0063 | 


TBAS4L 


AB 


0058 | 


TBAS8H 


AB 


0065 | 


TEMPX 


AB 


006C | 


TEMPY 


AB 


006D | 


TOSUB 


LB 


F95E 


TSTBACK 


LB 


FBE9 | 


TSTBELL 


LB 


FC4A | 


TSTCR 


LB 


FBAB 


USER 


LB 


FA8C | 


USERADR 


AB 


0358 | 


VBOUNDS 


LB 


FFB8 | 


VRFY1 


LB 


FA54 | 


VRFY2 


LB 


FA60 | 


VWAIT 


LB 


FEBF | 


WRTE 


LB 


FAD 7 | 


YSAV 


AB 


007 D | 


YTEMP 


AB 


00A4 



Assembly complete: 112 9 lines 

Errors flagged on this Assembly 



6502 OPCODE STATIC FREQUENCIES 



ADC 
AND 
ASL 
BCC 
BCS 
BEQ 
BIT 
BMI 
BNE 
BPL 
BVC 
BVS 
CLC 
CLD 
CMP 
CPX 
CPY 
DEC 
DEX 
DEY 
EOR 
INC 
I NX 
I NY 
JMP 
JSR 
LDA 
LDX 
LDY 
LSR 
ORA 
PHA 
PHP 
PLA 
PLP 
ROL 
RTI 
RTS 
SBC 
SEC 
SEI 
STA 
STX 
STY 
TAX 
TAY 
TSX 
TXA 
TXS 
TYA 



5 
14 
12 
21 
20 
82 
12 
7 
41 
18 
2 
3 
7 
2 
35 
1 
2 
7 
7 
9 
6 
18 
3 
3 
18 
79 
117 
12 
20 
11 
10 
16 
4 
14 
3 
4 
1 
34 
67 
5 
1 
72 
7 
5 
2 
5 
1 
2 
1 
3 



*** 

******** 
******* 
************* 
************ 

A*************************************, 

******* 

**** 

************************** 
*********** 



********************** 



*********** 



** ** 
**** 
***** 
* * * 

*********** 



*********** 

************************************************** 

******************************************************** 

******* 

************ 

******* 

****** 

********** 

** 

******** 



********************* 

****************************************** 
*** 

********************************************** 

**** 

*** 



**************** 
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Minimum frequency = 1 
Maximum frequency « 117 

Average frequency = 17 

Unused opcodes: 

BRK CLI CLV NOP ROR SED 

Program opcode usage: 89 % 



(1.00) That's all. Folks 



"_84.PICT" 202 KB 2001 -09-1 dpi: 600h x 600v pix: 4675h x 6225v 

Source: David T. Craig | Page 0042 of 0047 



Apple III Computer Information • Doc # 085 • Apple III Boot ROM Listing 
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APPLE /// REV 1 ROM HEX DUMP 

Source 

ROM file as found with Chris Smolinski's Macintosh SARA emulator application 

This hex dump, which was produced by the Apple Macintosh MPW DumpFile tool, lists the 
Apple /// Revision 1 ROM. This 4KB ROM occupies addresses $F000-$FFFF. 



File : ROM 

Data Fork Length : 4096 

Resource Fork Length : 2 67 



Dumping Data Fork 


from offset 


to 4095 












: 


AO 


01 


A6 


81 


84 


94 


A9 


05 


85 


8F 


08 


68 


6A 


6A 


6A 


6A 


t • StANi© . Oe . h j j j j 


10 : 


85 


8B 


AD 


DF 


FF 


85 


9F 


20 


2B 


Fl 


08 


A5 


85 


85 


9B 


A5 


6a£fl v 6u . +0 . • 006 • 


20 : 


86 


85 


9C 


A9 


E0 


85 


9A 


A5 


82 


C5 


8A 


85 


8A 


08 


6A 


BD 


UOu©$ 06 • Q«aOa . j Q, 


30 : 


89 


CO 


90 


01 


E8 


BD 


8A 


CO 


20 


4C 


F3 


28 


F0 


OA 


28 


AO 


a;e.EQa; .L©(#. ( t 


40 : 


07 


20 


56 


F4 


88 


DO 


FA 


08 


A5 


83 


A6 


81 


20 


04 


Fl 


28 


. .VUa-' . -EStA. .6( 


50 : 


DO 


17 


AO 


12 


88 


DO 


FD 


E6 


99 


DO 


F7 


E6 


9A 


30 


F3 


20 


-. t .a-"E6-~E60U. 


60 : 


2B 


Fl 


DO 


05 


A9 


80 


4C 


EA 


F0 


A5 


87 


F0 


76 


C9 


03 


B0 


+6- . ©ALI^ • a^v... . oo 


70 : 


72 


6A 


B0 


0B 


AD 


DF 


FF 


29 


7F 


8D 


DF 


FF 


20 


C4 


F2 


AO 


ri°o . :£fT ) cfl v . fUt 


80 : 


7F 


84 


93 


A6 


81 


20 


B9 


Fl 


90 


22 


20 


AA 


Fl 


C6 


93 


10 


NiS[A . Tide " . ™6Ai . 


90 : 


F2 


C6 


94 


DO 


53 


A5 


8F 


30 


E6 


A5 


8C 


48 


A9 


60 


20 


25 


UAi-S*eOt>aH© N . % 


AO : 


Fl 


A9 


00 


20 


04 


Fl 


68 


20 


04 


Fl 


90 


D3 


A4 


99 


C4 


8C 


6©. . .Oh. . de"§6/a 


B0 : 


F0 


0E 


A5 


8C 


48 


98 


OA 


20 


25 


Fl 


68 


20 


04 


Fl 


90 


CA 


# »aHo %6h 6e 


CO : 


A5 


9A 


85 


89 


A5 


98 


C5 


84 


DO 


CO 


A5 


87 


4A 


90 


2A 


20 


• 60a • o^N— £ • aJe * 


DO : 


48 


Fl 


B0 


B6 


AD 


DF 


FF 


29 


7F 


8D 


DF 


FF 


20 


OF 


F3 


A6 


Hd°°d*fl v ) gfT . . U9[ 


E0 : 


81 


B0 


A7 


18 


A9 


00 


90 


03 


A9 


82 


38 


85 


88 


BD 


88 


CO 


A«>£.©. e .©C80a£2a£ 


F0 : 


20 


AA 


Fl 


A5 


9F 


8D 


DF 


FF 


60 


20 


16 


F2 


90 


E5 


A9 


81 


TMQ.ucfT" . .UeA©A 


i nn. 


D U 


iio 


DU 




UA 


o c 
OD 


Q Q 

y y 


z U 


1 o 

lo 


Fl 


20 


3E 


Fl 


B5 


85 


85 


PE-/ . 06 . . 6 . >6jLlOO 


110: 


8C 


A5 


99 


95 


85 


20 


00 


F4 


AO 


03 


98 


20 


4A 


F4 


88 


10 


£•610. .Ut .6. JUa. 
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